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SECTION  I 


INTRODUCTION 

The  practice  of  employing  numerical  computation  to  study  vibrations  of 
machinery  has  become  a  reality  since  Holzer's  classical  work  in  1921 
[ij.  Understandably,  during  the  earlier  days  when  electronic  digital 
computation  equipment  was  not  available,  only  the  relatively  simple 
torsional  problem  was  considered.  Two  decades  passed,  when  Myklestad's 
treatment  of  the  lateral  vibrations  of  a  beam-like  structure  [2?  was 
first  formulated  to  study  airplane  wings.  This  important  event  took 
place  when  many  of  the  finest  minds  in  the  history  of  modern  technology 
were  devoted  to  the  engineering  of  the  earthbound  flying  machine.  It 
was  rather  remarkable  that  this  development  took  place  at  all  when 
digital  computing  equipment  was  of  the  electro-mechanical  type  and  its 
memory  capacity  was  mainly  limited  to  a  single  register.  Although  the 
fundamental  matrix  methods  were  already  available,  their  execution  was 
done  literally  by  hand,  including  the  process  of  recording  intermediate 
numbers.  Adaptations  of  Myklestad's  method  to  calculate  critical  speeds 
of  a  flexible  rotor  was  soon  proposed  by  Prohl  [3].  By  this  time,  most  of 
the  important  elements  in  the  computation  methodology  of  machinery  vibra¬ 
tion  were  fully  established.  In  the  following  years,  the  technological 
impacts  of  modern,  high  speed,  digital,  electronic  computers  were 
felt  in  all  phases  of  engineering  activities.  Use  of  such  computers  in 
rotor  dynamics  studies  is  now  routine.  Engineers  of  the  present  genera¬ 
tion  are  unburdened  of  the  drudgery  of  computation  chores. 

The  peculiar  role  of  fluid-film  bearings  in  the  dynamics  of  a  high  speed 
rotor  was  first  expounded  by  Newkirk  in  the  mid  20' s  [4,  5].  Since  then, 
journal  bearing  related  instability  of  a  rotor  received  attention  from 
many  investigators  [6,  7,  8],  Designation  of  elastic  and  damping 
properties  to  study  oil-film  journal  bearing  effects  on  rotor  vibrations 
was  formally  proposed  by  Hagg  and  Gankey  [9 ] .  In  this  respect,  due  to 
cross -coupling  arid  anisotropic  effects,  dynamics  of  a  rotor-bearing 
system  assumed  a  higher  degree  of  complexity  than  other  problems  of  linear 
vibration  in  both  physical  concepts  and  computation  procedures.  Since 
relatively  small  lateral  motion  may  represent  a  large  fraction  of  the 
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radial  clearance  of  a  fluid-film  bearing,  interests  in  non-linear  bearing 
effects  soon  developed.  Unfortunately,  only  specialized  topics  in  non¬ 
linear  mechanics  can  be  treated  with  any  degree  of  thoroughness  [lO, 

1 L ,  12,  13].  Many  attempted  to  utilize  direct  integration  to  study 
transient  problems  of  rotor  dynamics.  Effectiveness  of  the  latter  approach  is 
still  a  matter  of  much  controversy.  Lack  of  total  success  in  its 
advocacy  may  be  attributed  to  the  following: 

o  Numerical  algorithms  for  direct  integration  require  attention 
to  control  truncation  error  to  avoid  numerical  instability. 

Proper  implementation  of  this  method  to  a  realistic  problem  is 
generally  quite  costly. 

o  Unless  addressed  to  solve  a  problem  for  which  some  non-linear 
feature  of  the  system  is  particularly  prominent,  the  results  of 
integration  ai-e  disappointingly  inconsequential.  It  is  actually 
quite  difficult  to  identify  a  worthy  non-linear  problem. 

o  Uncertainties  in  the  operating  conditions  of  the  fluid-film 
bearing  (e.g.  bearing  clearance,  lubricant  temperature,  and 
effects  of  feeding)  often  over-shadow  improvement  of  accuracy 
which  may  be  related  to  non-linear  effects. 

While  earlier  studies  of  dynamic  fluid-film  properties  were  restricted  to 
rigid  body  motions  of  the  rotor,  a  major  step  forward  in  the  technology 
of  rotor-bearing  dynamics  was  advanced  when  a  series  of  technical  reports 
and  associated  computer  software  were  published  under  the  sponsorship  of  the 
Air  Force  Aero-Propulsion  Laboratory,  Wright-Patterson  Air  Force  Base. 

This  set  of  documents,  known  as  Rotor-Bearing  Dynamics  Design  Technology 
AFAPL-TR-65-45,  consists  of  ten  technical  reports  and  ten  computer 
programs,  which  are  respectively  listed  in  Tables  1  and  2.  Within 
the  realm  of  a  linear  characterization  of  the  support  bearings,  the 
flexible  rotor  can  thus  be  analyzed  not  only  to  obtain  the  critical 
speed  characteristics,  but  also  to  predict  unbalance  response,  stability 
threshold,  and  parametric  excitation  with  allowances  for  cross-coupling 
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TABLE  1 


TECHNICAL  REPORTS 


CURRENT  ROTOR-BEARING  DYNAMICS  DESIGN  TECHNOLOGY 
SERIES  MAPL-TR-65-45 


PART  NO, 

I 

II 

III 

IV 

V 

VI 


VII 


VIII 


IX 


PART  SUB-TITLE  AD  NO. 

State-of-the-Art  466390 

Rotor  Stability  Theory  466391 

Design  Handbook  for 

Fluid  Film  Bearings  466392 

Ball  Bearing  Design  Manual  466393 

Computer  Program  Manual  for  470315 

Rotor  Response  and  Stability 

The  Influence  of  Electro-  822401 

magnetic  Forces  on  the 
Stability  and  Response  of 
an  Alternator  Rotor 

The  Three  Lobe  Bearing  and  829895 

Floating  Ring  Bearing 

Spiral  Grooved  Floating  Ring  852998 

Journal  Bearing 

Thrust  Bearing  Effects  on  872980 

Rotor  Stability 

Feasibility  Study  of  Electro-  869324 

magnetic  Means  to  Improve  the 
Stability  of  Rotor  Bearing  Systems 


NOTE:  A  typical  example  identifying  a  part  is: 

AFAPL-TR-65-45,  Part  I,  "Rotor  Bearing  Dynamics  Design  Technology, 
State-of-the-Art",  AD  No.  465390. 
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TABLE  2 


COMPUTER  PROGRAMS 

CURRENT  ROTOR-BEARING  DYNAMICS  DESIGN  TECHNOLOGY  SERIES 

AFAPL  -TR-65-45 


AFAPL/SFL 


PART  NO. 

PROGRAM  USE 

PROGRAM 

V 

Rotor  Stability 

100 

V 

Rotor  Unbalance  Response 

101 

IV 

Static  Ball  Bearing 

102 

VI 

Rotor  Response  with  EMF 

103 

VI 

Rotor  Stability  with  EMF 

104 

VII 

Hybrid  Journal  Bearing  Performance 

105 

VII 

Three  Lobe  Bearing 

106 

VIII 

Floating  Ring  with  Herringbone 

106 

VIII 

Herringbone  Journal  Bearing 

108 

IX 

Rotor  Stability  with  Thrust  Bearing 

117 

and  anisotropy.  Throughout  the  passing  years,  this  approach  for  rotor 
dynamics  analysis  has  gained  widespread  acceptance.  In  the  meantime, 
some  new  trends  of  technological  development  evolved;  an  improved 
analytical  treatment  of  non-conservative  (damped)  rotor-bearing  systems 
became  known  [14],  and  understanding  of  users'  interests  (of  Rotor-Bearing 
Dynamics  Design  Technology)  increased  through  experience. 


As  a  part:  of  an  ongoing  contract  with  the  Air  Force  Aero-Propulsion  Laboratory 
to  update  the  Rotor-Bearing  Dynamics  Design  Technology,  this  report  covers 
the  topic  of  Flexible  Rotor-Bearing  Dynamics.  It  will  supersede  the  reports 
AFAPL-TR-b5-45,  Parts  V  and  IX  (AD  No.  470315  and  872980),  and  the  computer 
program  described  in  Section  III  will  replace  AFAPL-SFL  Programs  No.  100, 

101,  and  117. 


Essential  improvements  over  the  original  version  include  the  following: 

o  Distributed  analysis  is  used.  User  is  not  required  to  subdivide  a 
long  uniform  shaft  segment  to  control  accuracy. 

o  Local  inclination  (shaft  slope)  may  be  designated  as  an  independent  de¬ 
gree  of  freedom  (in  addition  to  deflection)  in  the  lateral  shaft  motion. 

o  Both  angular  and  lineal  stiffness  and  damping  coefficients  may  be 
assigned  to  each  bearing. 

o  Vibration  frequency  may  be  specified  by  the  user  to  be  different 
from  the  shaft  rotational  rate. 

o  Effects  of  bearing  modification  and/or  relocation  can  be  studied 
with  a  single  input  setup. 

o  Condition  of  stability  is  established  for  all  natural  modes  in  a 
user  specified  frequency  range.  Quantitative  indication  of  the 
stability  condition  is  expressed  in  terms  of  the  critical  damp¬ 
ing  ratio  of  each  natural  mode. 
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o  Forcing  function  can  be  designated  as  a  force  system  and/or  a 
moment  system  at  each  external-excitation  station, 

o  The  forcing  function  can  be  either  stationary  or  rotating. 

o  In  a  damped  response  analysis,  the  damped  resonance  is  auto¬ 

matically  searched  for  within  the  specified  frequency  range. 

Section  II  contains  a  description  of  the  capabilities  of  the  new  rotor 
dynamics  computer  program.  Section  III  is  the  User's  Manual,  including 
instructions  and  examples.  An  overview  of  the  theory  upon  which  the 
program  is  based  is  given  in  Section  IV.  The  theory  itself  is  presented 

in  Section  V,  which  contains  complete  derivations  of  the  analytical  basis 

of  the  program.  Section  VI  gives  attention  to  the  special  eigenvalue 
analyses  employed  in  the  new  program.  A  derivation  of  the  small  inclina¬ 
tion  gyroscopic  d'Alembert  effect  is  included  as  Appendix  A  because  there 
is  no  other  convenient  reference  for  this  information.  Appendix  B 
covers  the  various  uses  of  the  spline  curve- fitting  scheme,  which  is 
employed  in  the  real  and  the  complex  eigenvalue  algorithms.  Appendix  C 
contains  the  listing  o  the  source  program  in  FORTRAN. 
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SECTION  II 

ROTORDYNAMIC  ANALYSIS  AND  CAPABILITIES  OF  HIE  COMPUTER  PROG  PAN 

The  primary  objective  iri  the  performance  of  rotordynamic  analysis  is  to 
establish  whether  or  not  conditions  of  hazardous  vibrations  can  develop 
to  threaten  the  safe  operation  of  the  machine.  The  analysis  presented  in 
this  report  and  the  accompanying  software  cover  synchronous  and  asynchronous 
passive  responses  as  well  as  self-excited  shaft  whirls. 

T'.ijare  1  illustrates  the  role  of  rotordynamic  analysis  in  a  typical 
rotor  engineering  effort.  In  this  diagram,  the  total  analysis  effort  is 
divided  into  three  steps.  Step  I  analysis  deals  with  the  determination 
of  potential  resonances  with  obvious  excitation  sources;  e.g.,  mass  un¬ 
balance  and  gear  mesh  compliance.  This  is  the  minim:  m  step  which  should 
be  carried  out  in  the  evaluation  of  every  new  design.  Generous  variations 
in  bearing  support  stiffness  estimation  should  be  allowed  since  the 
resonance  frequencies  of  the  lower  modes  can  be  quite  sensitive  to  the 
precise  values  of  the  support  stiffnesses.  If  little  likelihood  of 
resonance  is  revealed,  subsequent  steps  of  analysis  may  not  be  necessary. 

If  undesirable  *  jsonances  are  uncovered,  consideration  should  be  given  to 
alterations  of  shafting  construction,  bearing  sizing,  and/or  bearing  re¬ 
location  to  separate  the  applicable  natural  frequencies  and  speed-related 
excitations.  Step  II  analysis  would  be  performed  when  near-resonances 
appear  to  be  unavoidable.  Damped  response  amplitudes  are  sought.  Com¬ 
plete  characterization  of  the  bearing  supports  should  be  incorporated,  in¬ 
cluding  damping  coefficients  and  pedestal  compliance  where  applicable. 
Balancing  limits  should  be  acc  >rdir<gly  established  to  ensure  ample  safety 
margins.  Step  III  analysis  deals  in  part  with  self-excited  shaft  whirls. 
Various  "obscure"  factors  can  cause  self-excited  shaft  whirls;  the  most 
commonly  known  one  is  the  cross -coupling  effect  of  fluid-film  bearings. 

The  need  to  perform  Step  III  analysis  largely  depends  on  past  experience 
with  similar  designs.  It  is  necessary  to  be  able  to  characterize  with 
sufficient  realism  the  relevant  excitation  sources  to  make  tins  analysis 
meaningful.  One  should  particularly  pay  attention  to  induced  forces 


7 


Complete  Ilotordynamics  Analysis  Procedure 


associated  with  small  clearance  impellers,  flow  leakage  seals,  and 
conditions  of  magnetic  gap. 


The  computer  program  described  in  this  report  enables  the  user  to  perform 
all  the  rotordynamics  analyses  mentioned  above.  In  addition,  the  program 
has  unique  capabilities  that  allow  the  user  to  "customize"  his  analysis 
to  address  the  topics  of  greatest  interest.  In  the  remainder  of  this 
section,  a  genera?  description  of  the  capabilities  of  the  program  are 
given.  The  material  in  this  section,  plus  that  in  Section  III  (which  is 
the  "User's  Manual"),  should  be  sufficient  for  use  of  the  program.  The 
reader  is  referred  to  Section  IV  for  a  more  detailed  discussion  of  the 
topics  covered  in  the  present  section.  The  mathematical  foundations  for 
both  sections  are  given  in  Section  V,  VI  and  in  Appendices  A  and  B. 


2 . 1  Modelling  of  the  Rotor 


The  rotor  is  modelled  for  the  dynamic  analyses  by  dividing  it  into  numerous 
segments.  Typically,  the  segments  will  lie  between  cross-sections  where 
changes  in  shaft  diameter  or  shaft  material  occur.  In  addition,  segment 
length  will  be  determined  by  the  location  and  size  of  impeller/ turbine- 
discs,  or  be  terminated  at  places  along  the  rotor  length  where  excitation 
forces  can  be  imposed  or  vibration  displacements  are  of  interest.  It 
should  be  noted  that  the  analytical  basis  of  the  program  employs,  within 
each  segment,  the  exact  bending  solution  for  a  constant  cross-section  beam. 
As  a  result,  the  user  need  not  subdivide  such  portions  of  the  rotor  for 
increased  accuracy.  This  characteristic  is  one  of  the  features  of  the 
program. 


Stations  are  cross-sections  along  the  rotor  where  segments  join. 

Stations  not  only  locate  all  segment  connections,  but  also  locate  bearings, 
excitation  points,  points  for  displacement  results,  and  points  of  reference 
for  representing  rigid  body  inertias.  Although  the  user  must  define 
sufficient  stations  to  describe  his  iOlur,  Lue  analysis  procedure  does 
not  have  to  work  continuously  with  all  of  the  stations  employed.  The 


user  will  typically  select  a  subset  of  these  stations  when  his  program 
is  run.  This  subset  (called  the  "action"  or  "excitation"  stations)  will 
include  only  those  stations  at  which 

o  bearing  damping  or  bearing  anisotropy  are  to  be  considered 
o  bearings  are  to  be  added,  removed,  or  have  stiffness  values 
change  with  speed  or  frequency 
o  excitation  forces  or  moments  are  to  be  applied 
o  the  results  obtained  for  the  motions  of  the  rotor  are  desired. 

The  size  of  this  subset  of  rotor  stations  influences  the  computer  time 
required  for  completing  the  analysis  of  the  rotordynamics .  Because  the 
size  of  the  subset  typically  will  be  much  smaller  than  that  used  in 
representing  the  rotor,  significant  computer  economy  can  be  achieved.  The 
ability  to  employ  only  a  few  such  stations  is  another  of  the  features  of 
the  program- 

2.2  Representing  the  Operational  Speed  and  Frequency  Range 

The  computer  program  employs  a  frequency  domain,  forced  response  rotor 
dynamics  analysis.  In  this,  the  results  obtained  for  critical  speeds, 
response,  stability,  etc.,  are  based  on  separate  calculations  made  at 
discrete  vibration  frequencies  and  associated  rotor  rotational  speeds. 

The  user  is  required  to  specify  these  speeds  and  frequencies.  Most 
generally,  he  can  direct  the  program  to  employ  a  number  of  rotor  speeds 
and,  at  each  speed,  to  employ  a  number  of  frequencies.  (For  critical 
speed  and  unbalance  response  calculations,  the  situation  is  simple 
since  each  speed  is  associated  with  an  identical  frequency).  The  results 
obtained  will  be  dependant  on  the  speed- frequency  choice.  The  rotor  speeds 
must  be  those  at  which  the  rotor  will  run  or  must  cover  the  range  in 
which  vibrational  problems  occur.  The  frequencies  must  likewise  cover 
the  range  in  which  vibrational  problems  occur.  For  example,  in  a 
critical  speed  calculation,  the  frequency  range  (and  associated  rotor 
speed  range)  defines  the  frequency  limits  within  which  the  criticals  will 
be  found.  In  a  stability  analysis  calculation,  the  frequency  range  (at 
a  given  rotor  speed)  defines  the  frequency  limits  within  which  an  unstable 
mode  can  be  found. 
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Because  the  method  of  "cubic  spline"  (see  Appendix  B)  is  used  to  determine 
the  root(s)  of  the  characteristic  determinant,  accuracy  of  the  calculated 
natural  frequency  and  the  mode  shape  is  somewhat  sensitive  to  the  choice  of 
the  frequency  range  and  the  number  of  frequency  points  within  the  frequency 
range*  Experience  has  shown  that  a  range  of  20  percent  of  the  lowest  natural 
frequency  should  be  satisfactory.  The  number  of  frequency  points  should  be 
between  four  and  seven.  In  many  cases,  four  points  are  quite  adequate.  A 
large  number  is  desirable  if  two  modes  are  expected  to  be  contained  in  the 
designated  frequency  range.  Very  little  gain  in  accuracy  can  be  achieved 
with  more  than  seven  points  while  computation  time  would  be  significantly 
increased.  Accuracy  of  the  results  can  be  verified  by  repeating  the  calcula¬ 
tion  with  the  same  number  of  frequency  points  along  with  a  smaller  frequency 
range  and  noting  the  magnitudes  of  any  changes  in  the  results. 


2.3  Representing  the  Characteristics  of  the  Bearings 

Since  bearings  can  influence  significantly  the  dynamics  of  the  rotor,  the 
computer  program  has  been  formulated  to  treat  the  rotor  bearings  in  a 
convenient  and  economical  manner.  The  program  first  calculates  the 
dynamic  characteristics  of  the  rotor  using  nominal  bearings*.  This 
calculation  is  termed  Level  I.  The  program  then  accepts  bearing 
characteristics  that  can  be  anisotropic  and  that  include  damping.  These 
characteristics  can  vary  with  frequency  and  with  rotor  speed.  The 
associated  calculations  are  termed  Level  II.  In  effect,  in  Level  II  the 
dynamic  properties  of  the  rotor-bearing  system  are  developed  from  those 
of  Level  I  for  the  rotor  itself.  The  economics  associated  with  this 
technique  can  be  significant,  since  the  Level  I  calculation  is  not  done 
repeatedly  in  an  analysis.  This  technique  is,  consequently,  another 
feature  of  the  computer  program. 


In  use,  the  user  provides  to  the  program,  for  each  bearing,  the  value 
for  its  nominal  stiffness  and  the  values  for  those  actual  characteristics 
which  are  appropriate  in  the  situation  under  consideration.  For  the 
actual  bearing  characteristics,  each  bearing  can  be  characterized  at 
each  speed  and  frequency  by  as  many  as  10  quantities.  The  detailed 
description  of  these  quantities  is  given  in  Section  4.2,4  of  this  report. 


*These  nominal  bearings  are  isotropic  and  contain  no  damping. 


2.4  Producing  the  Rotordvnamics  Analyses 

Depending  on  the  input  setup  beyond  Level  I,  the  computer  program  allows 
the  user  to  produce  five  different  analyses  for  lateral  (bending) 
vibrations  of  the  rotor-bearing  system.  Each  analysis  or  run  mode  is 
described  separately  below. 

2.4.1  Critical  Speeds 

Critical  speed  analysis  concerns  resonance  with  mass  unbalance. 

Three  restrictive  conditions  are  imposed  internally  in  the  computer 
program  when  this  run  mode  is  selected.  Firstly,  the  excitation 
frequency  is  set  to  be  the  same  as  the  rotational  speed  in  consistent 
units.  Secondly,  anisotropy  in  the  rotor  system  is  ignored.  Finally, 
non-conservative  aspects  (i.e.  damping)  in  the  rotor  system  are  ignored 

Upon  finding  each  critical  speed,  the  normalized  mode  shape  is 
calculated  and  printed  out.  The  critical  speeds  can  be  determined 

with  the  input  set  up  for  an  idealized  rotor  model,  for  which  bearing 
characteristics  are  assigned  as  a  set  of  isocioplc  springs.  Since 
it  is  desirable  to  know  how  the  critical  speeds  vary  with  bearing 
stiffness,  the  calculations  can  be  repeated  for  new  sets  of  bearing 
stiffness  data  with  the  aid  of  impedance  alteration. 

2.4.2  Unbalance  Response 

To  obtain  damped  unbalance  response,  the  user  must  provide  bearing 
characteristics  at  each  speed  according  to  the  most  general  format 
and  forcing  functions  in  terms  of  mass  moments.  The  computer  pro¬ 
gram  automatically  checks  whether  or  not  anisotropy  is  present  then 
makes  allowance  for  response  ellipticity  where  appropriate.  The 
relative  phasing  of  mass  moments  among  various  planes  can  be 
assigned  by  the  user.  The  computer  will  internally  set  the  forcing 

C.  - - -  •£ _ 4.  A  U  ~  ~  C  4-U  ~  ^  ~  -T  —  ~  - - -  - -  ~  c  *.1 - • - - - - - 

*-.n,nvu  i-w  \j  x.  int:  tuLutuig  \,y  pc  tcgutuicos  ut  j  upuu  cULiy« 

Calculated  response  will  be  presented  as  orbit  parameters  at  each 
of  the  active  stations  at  speed  points  specified  in  the  input. 
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The  computer  will  automatically  search  for  one  or  more  damped 
critical  speed(s)  within  the  specified  speed  range  and  compute  the 
corresponding  response(s). 


To  determine  asynchronous  resonances,  the  user  specifies  the  range 
of  asynchronous  frequencies  of  interest  at  each  rotor  speed.  He 
also  has  the  option  of  specifying  bearing  support  characteristics 
at  each  speed-frequency  combination.  As  in  the  critical  speed 
calculation,  non-conservative  aspects  of  the  rotor  are  neglected; 
however,  isotropy  is  not  presumed.  The  asynchronous  resonance  mode 
shapes  are  calculated  along  with  the  natural  frequencies.  Where 
isotropy  is  not  preserved,  the  mode  shape  is  described  in  terms  of 
orbit  parameters. 


2.4.4 


ichronous  Response 


This  run  mode  is  to  Asynchronous  Resonances  as  Unbalance  Response 
is  to  Critical  Speeds.  There  is, however,  an  additional  parameter 
available  to  the  user  to  specify  the  character  of  the  forcing 
function.  Asynchronous  excitation  may  be  encountered  either  in  tne 
form  of  a  space  fixed  system  or  a  rotating  system.  Gear  mesh 
excitation,  partial  inlet  nozzle,  and  flow  blockage  all  represent 
space  fixed  asynchronous  forcing  systems.  Rotating  forcing  systems 
are  less  common;  one  example  of  the  latter  is  an  unbalanced  rotating 
stall  of  a  compressor  stage.  For  this  reason,  the  user  is  allowed 
to  identify  whether  the  forcing  function  is  space  fixed  or 
rotating.  Again,  asynchronous  damped  resonance  is  automatically 
searched  within  the  user-specified  frequency  range  and  the  response 
at  the  corresponding  condition  is  calculated  in  addition  to  those 
at  user-specified  frequencies. 


2.4.4  Stability  Analyses 


Stability  analysis  is  performed  at  each  user-specified  speed  by 


13 


searching  for  non-conservative  natural  modes  in  user-specified 
asynchronous  frequency  ranges.  The  critical  damping  ratio  is 
determined  along  with  the  natural  frequency.  A  negative  critical 
damping  ratio  indicates  instability.  The  normalized  mode  shape  of 
each  mode  is  printed  out  in  terms  of  orbit  parameters  at  the  active 
stations . 
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SECTION  III 


DESCRIPTION  OF  COMPUTER  PROGRAM 

This  section  constitutes  a  manual  for  use  of  the  rotordynamics  pregram. 

It  first  describes,  in  detail,  the  input  data  and  then  discusses  the  output 
provided  by  the  program.  Examples  of  both  input  and  output  are  also  given. 

3,1  Input  Data 

Input  data  consist  of  job  title,  rotor  geometry,  material  properties, 
bearing  characteristics,  dynamic  characteristics  such  as  shaft  speeds,  vi¬ 
bration  frequencies  and  types  of  excitation,  and  kinds  of  dynamic  analyses 
to  be  performed. 

Depending  on  the  particular  type  of  analysis  required,  the  input  information 
may  vary.  Data  cards  in  sequence  and  their  specifications  are  listed  in 
the  following.  Each  integer  must  be  right-justified  in  its  field. 

In  Level  I  input  (Cards  1  -  13)  specify  shaft  geometry  and  speed  frequency 
combinations  at  which  subsequent  calculations  will  be  carried  out.  (Cards 
2-9)  specify  geometrical,  physical  and  material  modelling  parameters  of 
the  shaft,  (Cards  1,  10  -  13)  specify  the  bearings  and  speed  frequency  com¬ 
binations.  Card  14  contains  control  parameters  which  relate  to  the  type 
of  analysis  desired.  Cards  15  and  16  deal  with  additional  data  (Level  II) 
which,  together  with  structural  characterization  furnished  by  Level  I  input, 
complete  the  dynamic  specification  of  the  total  rotor  system.  Card  17  al¬ 
lows  entry  of  user-specified  conditions  to  initiate  the  iterative  computa¬ 
tions  required  of  a  non-conservative  rotor  system. 


The  term  "Card"  as  used  for  the  input  data  description  refers,  in  general, 
to  a  set  of  input  card£.  For  example.  Card  4  is  a  set  of  individual  cards, 
one  for  each  shaft  segment. 
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Card  1  Number  of  Speed  Groups  and  Execution  Level  Control 


Column  1-5:  NCASE,  FORMAT  (15)  -  A  positive  integer  that  indicates 

the  number  of  speed  groups  to  be  run  f 

for  a  single  set  of  data  (Cards  2  -  9) . 

Cards  10  -  13,  15  -  17  are  to  be 
repeated  for  each  speed  group  to 
specify  further  speed -frequency  com¬ 
binations  and  associated  Level  II 
bearing  revisions  and  forcing  function 
designations,  within  each  speed  group. 

If  NCASE  is  set  to  zero,  omit  Cards 
2-13;  execution  will  skip  to  card 
14  using  the  user-furnished  data  file 
on  Tape  (10),  which  should  contain 
previously  generated  Level  I  interim 
output  (See  KRUN) . 

Column  6-10:  KRUN.  FORMAT  (15)  -  Execution  level  control. 

0  -  Data  (Cards  1  -  13)  are  stored  on 
Tape  (.10)  for  further  runs  with  Level  II 
alterations,  execution  then  stops. 

(Run  Level  I  only). 

1  -  Level  I  data  are  stored  on  Tape 
(10)  as  above  and  execution  proceeds 
normally  with  (Card  14)  and  any  other 
Level  IT  alterations  (Card  15  -  17). 

(Run  Level  II). 
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Column  1-16: 


IDENT*  FORMAT  (4A4)  -  15  character  job  identification  code 

Last  character  in  the  allowed  field 
(Column  16)  should  be  a  blank  for 
visual  separation  from  TITLE. 


Column  17  -  80: 


JITLEj  FORMAT  (16A4)  —  64  character  job  title. 


Card  3  —  Rotor  Model  Parameters,  Action  Stations,  and  Printout  Control  ( FORMAT  (1615)  ) 

Column  1-5:  LSEG  --  Number  of  shaft  segments  (maximum  75) . 

Column  6  -  10:  LMAT  —  Number  of  different  materials  of  which  the  rotor 

is  composed. 

Column  11  -  15:  LMAS  —  Number  of  lumped  mass  stations;  e.g.,  disks, 

collars  and  impellers. 

Column  16  -  20:  I.BEA  —  Number  of  bearing  stations  (maximum  4). 

Column  21  -  25:  I.TYP  —  Type  of  vibration  of  the  rotor 

1  torsior  vibration 

2  bending  ration 

3  both 

Column  26  -  30:  LEXI  —  Number  of  action  stations  (maximum  20).  A 

geometric  station  may  represent  two  action 
stations,  see  Card  9. 

Column  31  -  35:  LPRI  ~  Level  I  bearing  printout  control. 

0  -  default,  printout  bearing  data 
-1  -  supress  bearing  data  output 
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Card  4  -  Geometry  of  Shaft  Segments,  FORMAT  (15,  5X,  5F10.0).  One  Card  4 
must  be  included  for  each  shaft  segment;  therefore,  the  value  of 
LSEG  on  Card  3  equals  the  number  of  Card  4's  to  be  included  in 
the  input  deck. 


Column  1-5: 
Column  6-10: 
Column  11-20 
Column  21  -  30 
Column  31-40 
Column  41  -  50 
Column  51  -  60 


L  —  Shaft  segment  inde::  number  (1  through  LSEG). 
Blank. 

X(L)  ~  Length  of  the  L-th  segment  (inches). 

D1  —  Stiffness  I.D.  (inches). 

D2  -  Stiffness  O.D.  (inches). 

D3  —  Mass  I.D.  (inches). 

D4  —  Mass  O.D.  (inches). 


NOTE: 


D3  and  D4  cannot  be  equal. 


Card  5  -  Material  Properties,  FORMAT  (215,  3E10.4),  Ine  card  must  be  provided 
for  each  different  shaft  material;  therefore  LMAT  cards  must 
provided. 


Column 

1  -  5: 

NMAT  ~  Material  index  number  (1  through  LMAT). 

Co  1 umn 

6-10: 

N  ~  Station  number 

of  new  material  (N  must  equal 

the  first  Card  3) 

Column 

il  -  20: 

DO  ~  Dens i tv  v lb./ 

.a.  -m  , . 

Column 

21  -  30: 

E  —  You  ns's  modi.  1 

i  ( lb./-,q.  in. ; 

Column 

■>1  -  '.0: 

—  S h ? n v  iird ii1  •  " 

lb.'--.-  r. 

-(?  Physical  Properties  of  Lumped  Mass  Stations.  FORMAT  (215,  4F10.0) 
LMAS  cards  must  be  provided  (Card  3) 

Column  1-5:  L  -  Lumped  mass  Index  number  (1  through  1MAS). 

Column  6  -  10:  N3.(L)  -  Station  number  of  the  L-th  lumped  mass. 

Column  11  -  CO:  KIU  ~  Weight  of  thr  L-th  lumped  mas,  (lb.) 

Column  21  -  30:  P(L).  -■  Polar  inertia  of  the  L-th  lumped  mass 

(lb.-  ir..2). 

Column  31  -  40:  TH*!  ~  Transverse  inertia  of  the  L-th  lumped  mass 
(lb.-  in,'4;. 

Column  41  -  50:  XULL  “  Offset  of  C.C.  of  the  L-th  lumped  mass, 
measured  from  station  N3(L!  (inches). 


LBEA  cards  must  be  provided  (Card  3) 

Column  1-5:  L  -  Bearing  index  number  (1  through  LBEA). 

Column  6  -  10:  N5(L)  —  Station  number  of  the  L-th  bearing. 

Column  11  -  20:  D5(L, 1)  —  Vertical  (along  x)  misalignment  of  the  L-th 

bearing  (inches). 

Column  21  -  30:  D5(L.2)  —  Horizontal  (along  y)  misalignment  at  the 

L-th  bearing  (inches) 

Column  31  -  40:  S5(L, 1 )  —  Vertical  static  lineal  stiffness  of  the 

L-th  bearing  (lb. /in.) 

Column  41  -  50:  S5(L, 2)  —  Horizontal  static  lineal  stiffness 

(lb. /in. ) 

Column  51  -  60:  T5(L, 1)  —  Angular  stiffness  of  the  L-th  bearing, 

in  the  vortical  plane  (in.  -lb. /rad.) . 

Column  61  -  70:  T5(L,2)  —  Angular  stiffness  in  the  horizontal  plane 

(in. -lb. /rad.) . 

The  above  bearing  data  are  primarily  for  determining  the  load  distribution 

among  bearings  due  to  gravity  and  due  to  bearing  misalignment.  They  are  no 

used  for  critical  speeds  or  response. 


— -a  —  Action  Stations.  FORMAT  (1615) 

Maximum  2  cards  (20  stations')  •  tfvt  . 

),  LEXi  data  values  must  be  provided 

(Card  3).  A  geometric  station  may  be  repeated  to  designate 

both  lineal  and  angular  actions,  see  Card  9. 

Column  1-80:  N8(l)  t=>J  -  ?m  _  c. 

- - i- - ~m-  Station  number  of  excitation  point. 

Since  the  computer  program  is  based  on  the  distributed  analysis  of  shaft 

IT:!'  °"15'  Sftati0nS  ”hiCh  —  significant  for  investigating 

pes  an  or  assigning  mass  unbalance  or  external  loads  need  to  be 

s  gned  as  action  stations.  Bearing  stations,  heavy  lumped  inertia  stations 
ti  ns  with  external  excitation,  and  stations  where  vibration  motions 

t  :r::  riiy  ian  inc° chu  c~-  —«•  •*  ««« 

II  iVVmsU  as  P0S3lble  but  should  —  -  -d 

stat  ons.  Generally  4  to  7  stations  are  used.  If  floating  number  axpo„e„t 

verflow  occurs  (this  often  happens  on  a  single  precision  computer,  reduce 
the  number  of  action  stations. 


!  i 


--ig' 


The  number  of  sets  of  cards  10  -  13  must  equal  the  value  of  NCASE  on 
Card  1. 


Card  10 
Column  1 


Run  Mode  Control.  FORMAT  (15) 

5-  LRUN  -  Synchronism  Indicator 

synchronous  frequency 
0  isynchronous  frequency 


RUN  In  card  14  of  input  ~i]<-t  he 
value  of  LRUN  entered  here. 


consistent  wf-h  the 


Card  11  -  Speed  Loop  Range,  FORMAT  (215,  2F10.0) 


For  IRUN  =  1  or  2  in  card  14,  LRUN  in  card  10  must  be  set  to  1, 
and  it  is  necessary  to  select  a  speed  range  over  which  analysis  is 
to  be  conducted  and  the  number  of  speed  points  (maximum  of  11)  of 
which  the  range  is  comprised.  A  number  of  speed  groups  may  be 
used  as  designated  by  NCASE  in  card  1  to  cover  a  large  speed 
range  by  several  speed  groups.  The  speed  ranges  of  various  speed 
groups  may  overlap  or  be  consecutive  or  be  separated.  IFRE  would 
be  defaulted  internally  to  a  value  of  1. 


For  IRUN  =  3,  4,  or  5,  in  card  14,  LRUN  in  card  10  must  be  set 
to  0;  the  rotor  speed  is  constant  and  therefore  the  number  of 
speed  points  is  1  (within  each  speed  group) .  Under  this  condition 
a  number  of  different  frequency  ranges  (other  than  running)  each 
consisting  of  a  number  of  frequency  points  (maximum  of  11)  may  be 
selected  to  investigate  the  asynchronous  frequencies.  Selection 
must  be  made,  therefore,  of  speed  groups,  speed  points  (always  1) , 
frequency  groups,  and  frequency  points. 


Column  1-5:  17  Number  of  speed  points  to  be  run  in  each  speed  group. 

This  determines  the  number  of  times  the  set  of  cards  12  -  i3  are 
to  be  repeated  as  a  pair  within  each  speed  group  (cards  10  -  13). 

Column  6-10:  IFRE  —  Number  of  frequency  groups  at  each  speed  point 
specified  by  17  above  (cannot  exceed  5). 


Column  11-20:  SPE1  —  Lower  bound  of  the  speed  range. 
Column  21  -  30:  SPE2  —  Upper  bound  of  the  speed  range. 
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Card  12  —  Nominal  Dynamic  Bearing  Stiffnesses,  FORMAT  (215,  2F10.0), 

Total  number  of  cards  must  equal  LBEAxI7. 

Column  1-5:  jL  —  Bearing  stations  index  number  (1  through  LBEA) . 

Column  6-10:  16  —  Input  control  of  dynamic  bearing  data; 

1  continue  data  entry  j 

i 

0  denotes  last  data  card  for  current  speed  group  and  j 

t 

allows  subsequent  omission  of  further  repetition  of 
card  12  if  bearing  data  do  not  vary  within  a 
speed  group. 

Column  11  -  20:  XS(L,  1)  —  Lineal  bearing  stiffness  (lb. /in.)  for  Level  I 

Column  21  -  30:  XS(L,  2)  —  Angular  bearing  stiffness  (in. -lb . /rad. )  for 

Level  I  only. 

Tiie  core  of  computations  lies  in  the  speed  (outer)  and  the  frequency  (inner) 
loops.  The  shaft-speed  dependent  bearing  data  are  entered  within  the  speed 
loop. 


,  FORMAT  (215,  2F10.0) 


Card  13  —  Frequency-1 


Total  number  of  cards  must  equal  IFRExI7  for  each  speed  group 
(card  is  omitted  if  I, RUN  =  1). 


Column  1-5: 


J  —  Frequency  group  index  number  (1  through  IFRL; 


Column  6  -  10:  _I8  -  Number  of  frequency  points  of  the  frequency  loop. 


Column  11  -  20:  FRQI  —  Lowt-i.  bound  of  the  frequency  range. 
Column  21  -  30:  FKQ2  -  Upper  bound  of  the  frequency  range. 
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Card  14  ~  Run  Mode  Control  Parameters  for  Level  II,  "'ORMAT  (1615) 

One  card  for  each  input  setup. 

Column  1-5:  I  RUN  —  Run  mode  indicator 

1  compute  critical  >peeds 

2  determine  unbalance  response 

3  compute  natural  nodes  of  asynchronous 
resonance 

4  determine  asynchronous  response 

5  perform  stability  analysis 

The  allowable  value  for  IRUN  must  be  compatible  with 
the  value  of  LRUN  in  card  10  as  indicated  by  check 
marks  in  the  following  table. 


I  RUN 


LRUN 

0 

1 


/  / 


4 

/ 


5 

/ 


The  program  automatically  solves  the  real  eigenvalue  problem  in  the  specified 
frequency/speed  range  for  IRUN  =  1  and  3.  For  IRUN  =  2,  4  and  5,  Che  complex 
eigenvalue  problem  may  be  created  according  to  the  value  assigned  to  IGEN 
(column  26  -  30  of  this  card). 

Column  6  -  10:  1TYPE  ~  Type  of  shaft  motion  due  to  excitation. 

0  whirling 
1  space  fixed 

(Internally  defaulted  to  0  for  IRUN  =1,  2,  3) 

Column  II  -  15:  IBRG  ~  Number  of  bearings  to  be  revised. 


The  program  allows  the  bearing  data  used  in  Level  I  to  be  altered.  This 
permits  Lhe  modelling  of  anisotropic  bearings  and  bearings  having  damping, 
and  also  permits  bearing  replacement  and  the  interchange  of  bearing  stations. 


Column  16  -  20:  IPRI  —  Controls  output  of  Level  II  bearing  data  and 

excitation  force. 

0  prints  out  bearing  data  and  excitation  force 
at  each  speed  point 

-1  suppresses  printing  of  bearing  data  and  excita¬ 
tion  force 

Column  21  -  25:  IDIAG  —  Diagnostic  output  control 

0  no  diagnostics 
2  complete  diagnostics 

Column  26  -  30:  IGEN  —  Controls  number  of  damped  natural  modes  to 

be  found  in  the  complex  eigenvalue  computations. 

0  the  complex  eigenvalue  vector  subroutine  will 
be  bypassed  and  no  complex  roots  will  be  sought. 
(IRON  =  2,  4.  5) 

<0  | IGEN j  damped  natural  modes  will  be  sought  and 
iteration  diagnostics  will  be  furnished. 

>0  IGEN  damped  natural  modes  will  b  sought 
without  diagnostics  output. 


Column  31  -  35:  ISLO  -  Controls  iteration  criterion  and  speed. 


0  yields  normal  iteration 
>0  convergence  criterion  is  multiplied  by  10 


<0  convergence  criterion  is  multiplied  by  10 


-TSLO 


and  iteration  stepping  for  damping  is  decreased  by 
,,ISL0 


Normally  set  to  zero.  if  iteration  oscillates  oi  does 
not  converge,  yet  a  damped  natural  mode  is  expected  within 
speed  group,  try  ISLO  equal  to  1  or  -3 .  Absolute  value 
of  ISLO  should  not  exceed  3  and  rarely  be  as  high  as  2. 
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Card  15  ~  Revision  of  Bearing;  Coefficients  Control,  FORMAT  C413) 

'BRG  cards  must  ‘ <  provided  for  each  speed  frequency  combination. 


Column  1-5: 
Column  •>  -  10: 


Column  11 


Column  10  -  20: 


0  ~  Bearing  index  number  (1  through  TBEG). 

MBRO  -  Station  number  .f  bearing  to  he  revised. 


15:  K.B RG  -  Mew  bearing  type 

1  radial  '1 Lneal) 

2  angular 


XJREV  —  Revision  data  control 

0  use  previous  data,  bypass  Card  15A 
1  read  card  I5A 


Card  15A  -  Revision  of  Bearing  Coefficients,  FORMAT  (8E10.4) 

IBRG  cards  must  be  provided  for  each  speed- frequency  com¬ 
bination  (card  is  omitted  if  IREV  (Card  15)  =  0). 

Column  1-80:  KXX.  BXX.  KXY,  BXY,  KYX ,  BYX,  KYY.  BYY  -  Bearing 

coefficients;  their  idcr tifications  are: 

First  Letter:  K,  stiffness  coefficient 

Unit:  lb, /in.  (lineal  bearing), 

in. -lb. /rad.  fangular  bearings) 

B,  damping  coefficient. 

Unit:  lb. -sec. /in.  flineal  bearing) 

in. -lb, -sec. /rad.  (angular  bearing) 
Second  Letter:  Reaction  coordinate. 


Third  Letter:  Displacement  coordinate. 
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Card  16  -  External  Excitation  Sources.  Control  FORMAT  (215) 

One  card  must  be  provided  for  each  speed -frequency  combination 
(this  card  and  cards  16A,  16B  and  16C  are  omitted  if  IRUN=1,  3, 
or  5  on  Card  14). 

Column  1-5:  I FORCE  —  Number  of  excitation  planes  excited. 

Column  6  -  10:  I FDATA  —  Force  data  input  control 

0  use  previous  data  and  omit 
Cards  36A  -  16C. 

1  read  Cards  16A  -  16C. 

Cards  16A  -  16C  —  External  Excitation  Sources 

One  of  each  card  must  be  provided  for  each  speed-frequency 
combination  (cards  are  omitted  if  IRUN  =1,  3  or  5  or  if 
1 FDATA  =  0) 

Card  16 A  -  FORMAT  (1615''- 

Column  1  -  80:  NFORCE(l).  1  =  1.  I  FORCE  ~  Station  number  of  the 

I  -  tl»  excited  station. 

Card  16B  -  FORMAT  ( 16  r5) 

Column  1-80:  KFORCE(I).  1=1,  1 FORCE  -  Excitation  type 

1  lateral  force 

2  lateral  moment 

For  IRUN  =  2  KFORCE  must  be  =  1 
For  IRUN  =  4  KFORCE  may  be  1  or  2 

Card  16C  -  FORMAT  (4E10.4I 

Column  1  -  40:  FI ,  G1 ,  F2 ,  G2  —  Excitation  components 

First  letter  =  F  component  in-phase  with  time  reference 

G  component  leading  time  reference  by  90  degrees 

Second  letter  =  1  forward  rotation  (whirl)  (HYPE  =  0;  i.e.,  ro- 

o  ,  ,  ,  .  tating  excitation) 

2  backward  rotation  (whirl)  & 

(backward  rotation  would  be  applicable 

to  counter  rotating  shafts) 


Card  17 


Column  1 


•  User  Furnished  Starting  Values  for  Complex  Eigenvalue  Iterations, 
FORMAT  (2E20.4) 

These  cards  are  required  if  IBEG  (card  14)  =»  -1  and  if  IGEN 
(card  14)  T4  0.  !  I  GEN  |  cards  must  be  supplied  for  each  iteration 

set.  An  iteration  set  is  a  speed  group  for  IRUN  =  2  or  a 
frequency  group  for  IRUN  =  4  or  5. 

-  10:  FBRG  —  Iteration  starting  frequency. 

Unit:  Hz 

CBRG  ~  Iteration  starting  damping  coefficient. 

Unit:  lb  .-sec. /in. 


V. 


3.2  lap’ll  Samples 

The  input  samples  are  based  on  a  model  rotor  which  was  previously  analyzed  and 
tested  by  Tonnesen  and  Lund  115j.  The  model  rotor  is  4b. 85  inch  (1190  mm) 
long  and  its  total  weight  is  413.32  lbs.  The  shaft  is  divided  into  32 
segments  with  18  inertial  stations  and  2  bearing  stations.  A  scaled  outline 
of  the  model  rotor  is  shown  in  Figure  2.  in  the  dynamic  analysis,  4  action 
stations  are  choset  ;  they  include  2  bearing  stations  and  2  inertia  stations. 

The  original  rotor  is  supported  by  two  identical  fluid-film  bearings  of  the  plain 
journal  type.  Each  bearing  has  a  radial  clearance  of  0.00181  inch,  a  bore 
diameter  of  2.468  inch  and  a  length  of  0.74  inch.  The  pedestal  supports  are 
considered  i;  be  rigid.  The  dimensionless  dynamic  coefficients  of  this  bear¬ 
ing  have  been  kindly  furnished  by  Prof.  Lund  and  are  listed  in  Table  3.  Fluid 
viscosity  of  3.349  cp  is  used  in  the  sample  calculations. 

The  present  section  will  describe  the  setup  of  the  input  cards  for  solving 
various  rotor  dynamics  problems.  Emphasis  here  will  be  placed  on  illustrating 
the  contents  of  the  setups.  In  some  studies,  it  is  necessary  to  run  the 
program  several  times.  The  input  data  of  the  next  run  will  necessarily  depend 
on  the  results  of  the  previous  run.  Thus,  in  order  to  give  the  rationale  for 
selecting  the  particular  content  of  input  data,  occasional  reference  will  be 
made  to  relevant  pTrtions  of  output  data  which  is  to  be  presented  later  in 
Section  3.4. 


3.2.1  Critical  Speeds  (IRUN  =  1) 

As  ball  bearings  are  commonly  used  in  many  rotor  systems,  the  critical 
speed  calculation  will  be  illustrated  with  the  original  fluid-film 
bearings  replaced  by  a  pair  of  deep-grocve  ball  bearings.  The  stiffness 
coefficients  were  computed  by  a  separate  computer  program  prepared  for 
the  USAF  under  the  same  contract  [16]. 

A  complete  set  of  input  cards  for  the  determination  of  a  critical 
speed  of  the  ball  bearing  rotor  is  shown  in  Table  4.  Due  to  preload, 
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the  ball  bearing  is  essentially  isotropic.  Damping  is  usually  negligible. 

Body  forces  on  the  rolling  elements  alter  the  contact  compliance  between 
each  rolling  element  and  the  races,  therefore  the  stiffness  of  the  ball 
bearing  is  somewhat  speed  dependent.  Thus  a  ball  bearing  support  can 
be  modelled  as  an  isotropic  spring  with  a  speed  dependent  stiffness  and 
can  be  completely  specified  at  Level  I  (card  12).  Subsequently,  at 
Level  2,  it  is  not  necessary  to  revise  dynamic  bearing  data  (IBRG  =  0 
in  card  14).  It  may  also  be  noted  that  the  static  bearing  stiffness 
values  are  left  as  zero  because  they  are  used  only  to  calculate  the  bear’ 
ing  load  distribution,  which  is  independent  of  the  stiffness  values  in 
a  two  bearing  rotor  system. 

3.2,2  Unbalance  Response  (IRUN  =»  2) 

To  allow  safe  operation  above  one  or  more  critical  speeds,  a  popular 
trend  is  to  damp-mount  a  ball  bearing  rotor.  A  damper,  in  parallel 
with  a  centering  spring,  is  installed  around  the  outer  race  of  the  ball 
bearing.  The  centering  spring  should  be  soft  enough  to  allow  the  damper 
to  function  effectively;  at  the  same  time  it  shoulu  be  stiff  enough  to  limit 
eccentricity  of  the  rotor  from  becoming  excessive.  The  unbalance  response 
analysis  will  illustrate  the  use  of  damp  mounting  of  the  ball  bearing 
rotor  considered  above.  The  stiffness  of  the  centering  spring  is 
chosen  to  be  about  1/4  of  that  of  the  ball  bearing.  For  the  present 
purpose,  800,000  lb. /in,  and  200,000  lb, /in.  are  respectively  assumed 
to  be  the  stiffness  values  of  each  ball  bearing  and  of  each  centering 
spring. 

Before  proceeding  no  calculate  unbalance  response  of  the  damp-mounted 
rotor,  it  is  first  necessary  to  determine  the  critical  speeds  of  the  soft- 
mounted  rotor.  A  Level  I  analysis  is  performed  for  this  purpose.  Ground- 
to-rotor  stiffness  value  at  each  support  point  is  160,000  lb, /in.,  which 
is  arrived  at  by  adding  the  compliance  values  (reciprocals  of  the  stiffness 
values)  of  the  ball  bearing  and  of  the  centering  spring  to  get  the  overall 
compliance.  The  input  set-up  for  the  Level  I  analysis  of  the  soft-mounted  rotor 
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Ls  given  in  Table  5.  Those  portions  of  this  input  deck  which  are  the 
same  as  those  in  Table  4  are  omitted  to  save  space.  A  single  speed 
range  of  2000-9000  rpm  is  used  for  this  study. 

An  examination  of  locations  of  sign  reversals  of  "co-rotation3l  end 
determinants,"  which  have  been  determined  by  the  Level  L  analysis,  re¬ 
vealed  critical  speeds  to  be  near  4350  rpm  and  7000  rpm.  Unbalance 
response  analysis  is  therefore  set  up  for  two  speed  ranges;  namely 
4000-5000  rpm  and  6000-8000  rpm.  The  damper  is  assumed  to  be  the 
viscous  type  and  its  damping  coefficient  is  assumed  to  render  a  rigid 
rotor  critical  damping  ratio  of  0.2  at  4500  rpm.  The  effective  values 
of  ground-to-rotor  stiffness  and  damping  coefficient  should  both  be 
speed  dependent  according  to  Section  4.2.4.  The  degree  of  speed  de¬ 
pendence  of  the  effective  stiffness  coefficient  turns  out  to  be  quite 
small;  that  of  the  effective  damping  coefficient  is  somewhat  more 
significant  but  can  still  be  neglected  within  each  speed  range.  There¬ 
fore,  the  dynamic  bearing  data  for  Level  XI  calculation  is  given  a 
constant  isotropic  stiffness  coefficient  and  a  constant  isotropic 
damping  coefficient  in  each  of  the  two  speed  ranges.  Such  an  input 
set-up  is  given  in  Table  6;  again,  only  those  data  lines  different  from 
those  in  the  previous  examples  are  shown.  A  single  unit  unbalance 
(1  in.-oz.)  is  assigned  to  a  different  axial  location  in  order  to  maximize 
the  relevant  modal  response  in  each  speed  range.  By  setting  NCASE  =  2 
in  card  1,  a  single  input  set-up  is  used  to  study  both  speed  ranges. 


3.2.3  Asynchronous  Resonance  (IRUN  =  3) 

The  asynchronous  resonance  analysis  is  quite  similar  to  the  critical  speed 
analysis.  However,  the  (asynchronous)  resonance  condition  is  searched 
through  for  a  frequency  range  at  constant  shaft  speed.  Also,  backward  whirls 
and/or  anisotropy  can  be  considered.  A  Level  I  example,  as  shown  in 
Table  7,  will  demonstrate  the  possibility  of  incorporating  the  approxi¬ 
mate  behavior  of  the  fluid  film  bearing  at  non -synchronous  conditions 
and  an  estimation  of  the  torsional  resonance  frequency  of  the  rotor. 

In  card  1,  NCASE  is  set  to  2,  even  though  in  both  speed  groups  rotor 
speed  is  8000  rpm.  This  is  done  so  that  the  dynamic  bearing  stiffness 
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values  can  be  varied  according  to  the  center  frequency  of  each  frequency 
range.  The  approximate  non-synchronous  stiffness  value  of  the  fluid 
film  bearing  is  determined  by  a  procedure  described  in  a  separate  report 
of  the  present  contract  [17].  LTYP  =  3  in  card  3  designates  that  both 
bending  and  torsional  analyses  are  to  be  performed.  The  first  speed 
group  contains  a  frequency  range  to  explore  the  "'•igid  mode"  with  a 
reduced  stiffness  value  which  corresponds  to  the  half  speed"  behavior 
of  a  fluid  film  bearing.  The  second  speed  group  contains  two  frequencv 
ranges;  the  first  of  these  concerns  the  relatively  stiff  near-synchronous 
behavior  of  the  fluid  film  bearing,  and  the  second  frequency  range  is 
intended  to  locate  the  torsional  resonance  frequency. 

3ending  asynchronous  behavior  of  the  rotor  is  further  studied  by 
invoking  Level  II  calculations  to  establish  asynchronous  resonance  fre¬ 
quencies  and  the  associated  mode  shapes.  LTYP  is  changed  to  2  in  card  3 
to  dedicate  the  study  to  bending  motions  exclusively.  The  second  fre¬ 
quency  range  in  the  second  speed  group  is  accordingly  removed,  Because 
the  isotropy  approximation  is  retained,  it  is  not  necessary  to  introduce 
new  dynamic  bearing  data  in  Level  II.  Table  8  shows  the  input  data  for 
calculating  asynchronous  bending  resonances. 

3.2.4  Asynchronous  Response  (IRUN  »  4) 

Damped  asynchronous  response  is  considered  with  fluid-film  bearing  data 
derived  from  Table  3,  Dimensions  and  lubricant  properties  are  indicated 
in  the  beginning  of  Section  3,2,  Load  levels  of  each  bearing  are  based 
on  Level  I  calculation  (see  Item  5.0  in  Table  13). 

This  calculation  is  performed  with  the  same  speed-frequency  combinations 
used  in  the  previous  analysis  {Table  8),  which  has  gene~ated  an  intermediate 
data  file  that  is  reusable.  Therefore,  the  present  calculation  begins 
with  Level  II  by  accessing  the  pre-stored  intermediate  data  file  (NCASE  -  ’0 
in  card  1).  Table  9  contains  tho  complete  input  set-up  for  this  run. 
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Two  natural  modes  are  sought  in  each  frequency  group  and  a  record  of 
the  iteration  progression  is  requested  by  setting  IGEN  =  -2  in  card  14. 
Starting  conditions  for  seeking  the  natural  modes  are  furnished  by  the 
user  as  indicated  by  IBEG  =  -1.  The  starting  conditions  are  based  on  re¬ 
sults  of  the  stability  analysis  which  was  performed  first  (see  Section 
3.2.5).  That  analysis  established  that  there  is  one  natural  mode  in  the 
first  frequency  group;  however,  because  two  sets  of  starting  conditions 
are  needed,  the  same  set  of  starting  conditions  is  repeated  for  a  second 
time.  There  are  two  natural  modes  in  the  second  frequency  group. 

Excitation  in  the  present  example  is  spatially  fixed  (ITYPE  =  1  in 
card  14).  It  is  represented  by  a  unit  force  (1  lb.)  at  station  18 
for  the  first  frequency  group  but  shifted  to  station  29  for  the 
second  frequency  group  (see  card  16A). 


3.2.5  Stability  Analysis  (I RUN  =  5) 


Example  for  the  stability  analysis  deals  with  precisely  the  same  rotor 
system  as  the  above  example  except  that  the  excitation  system  is  not 
needed  in  the  stability  analysis.  The  stability  analysis  actually 
is  included  in  the  damped  asynchronous  response  analysis  if  the  option 
to  do  so  is  specified  (IGEN  f  0  in  card  14).  The  stability  analysis 
is  a  shorter  run  because  response  calculation  to  a  specific  excitation 
is  not  performed.  In  the  particular  example,  a  relatively  highly 
damped  mode  in  the  second  frequency  group  required  repeated  trials 
before  a  fully  converged  solution  is  established;  therefore,  the  stability 
analysis  was  actually  completed  first,  then  the  damped  asynchronous 
response  was  executed  with  starting  conditions  which  are  the  results  of 
the  stability  analysis. 


Again,  because  the  same  speed-frequency  combinations  as  for  the  asynchronous 
resonance  calculation  are  used.  Level  I  calculations  are  bypassed  by 
accessing  the  pre-stored  intermediate  data  file. 
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The  first  trial  for  the  stability  analysis  was  run  with  the  input  set-up 
listed  in  Table  10.  Printing  of  Level  II  bearing  data  is  suppressed  with 
IPRI  -  -I,  Two  natural  modes  are  sought  in  each  frequency  group  (which 
is  associated  with  one  of  two  speed  groups)  and  a  record  of  the  iteration 
is  requested  by  setting  IGEN  =  -2  in  card  14.  Since  no  specific  clue 
is  available  for  starting  the  iterative  processes,  the  default  for  the 
internal  starting  logic  is  accepted  with  IBEG  =  0  in  card  14.  The  rest 
of  the  input  list  concerns  Level  II  bearing  data  for  each  speed  group. 

The  first  trial  yielded  one  damped  natural  mode  in  each  frequency  group. 
According  to  the  pattern  of  the  iteration  progression,  it  was  surmised 
that  there  is  only  one  mode  in  the  first  frequency  group  and  that  the  second 
frequency  group  may  have  two  natural  modes  but  the  internal  limits  of 
the  iteration  process  had  prevented  convergence  to  the  second  mode. 
Therefore,  a  second  trial  was  carried  out  with  the  input  listing  of 
Table  11.  User's  prerogative  to  specify  the  starting  values  is  requested 
with  IBEG  =  -l  in  card  14.  The  starting  values  of  frequency  and  damping 
are  furnished  as  card  17  for  each  mode  in  each  frequency  group.  In 
the  first  frequency  group,  because  a  second  mode  is  not  expected,  the 
same  starting  values  are  repeated.  In  the  second  frequency  group,  the 
starting  values  for  the  second  mode  (of  the  second  frequency  group) 
are  those  which  would  be  continued  by  the  iterative  process  if  it 
had  not  been  terminated.  A  full  discussion  on  the  record  of  iteration 
is  provided  in  Section  3.4.5.  The  second  trial  still  did  not  reach 
full  convergence;  however,  the  general  trend  previously  noted  was 
reaffirmed  and  the  need  for  an  "accelerated"  change  in  the  damping 
value  was  quite  apparent.  Therefore,  a  third  trial  with  the  starting 
damping  value  somewhat  "accelerated"  beyond  the  last  step  of  iteration 
is  used  as  shown  in  Table  12,  Full  convergence  was  indeed  realized  in  the 
third  trial. 
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j . 3  Output  Description 

The  output  of  the  computer  program  cunsists  of  printouts  of  the  input  data  with 
appropriate  headings  and  of  dynamic  responses.  Intermediate  results  of  com¬ 
putations  can  also  be  printed  out  —  these  printouts  are  controlled  by  the 
diagnostic  parameters  specified  in  the  input  setup.  In  the  following,  descrip¬ 
tions  of  the  output  emphasize  its  overall  organization  and  contain  supplementary 
definitions  for  the  terminology  appearing  in  the  headings.  Item  numbers  on  the 
l  lowing  pages  refer  to  the  "Item  Number"  column  on  the  computer  printouts 
gi/en  in  Tables  13  through  20. 
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A.  SUMMARY  OF  ROTOR  MODEL 

Items  1.0  through  4.0  summarize  the  rotor  model  input  data.  They  are  formulated 
under  self-explanatory  headings  to  allow  convenient  visual  checking.  The  pro¬ 
gram  checks  logical  aspects  of  the  corresponding  input  setup.  If  an  error  is 
detected,  an  error  message  is  written  cut  and  further  execution  is  halted. 

Item  5.0  gives  static  journal  oearing  load  distributions,  rotor  weight,  and 
the  axial  location  of  its  center  of  gravity. 

Item  1.0  Title  and  Summary 

The  title  is  printed  out  in  the  first  line.  It  is  followed  by  the  summary 
of  the  input  data  for  the  rotor  model;  namely, 

Shaft  Segment: 

Number  of  consecutive  shaft  segments  of  unifoir.i  cross  section  in  the  rotor 
model,  (The  numbering  of  nodal  stations  starts  from  the  beginning  of  the 
first  segment  to  the  end  of  the  last  segment). 

Shaft  Materials: 

Number  of  different  sets  of  material  properties,  including  weight  density. 
Young’s  modulus,  and  shear  modulus, 

Lumped  Inertia  Stations: 

Number  of  stations  where  concentrated  inertia  properties  (in  addition  to  the 
distributed  mass  in  the  shaft  elements)  have  been  assigned. 

Bearings : 

Number  of  stations  where  radial  and/or  angular  stiffness  may  be  assigned. 

Item  2,0  Shalt  Dimensions 

They  are  tabulated  in  six  columns: 

Element  No. :  index  number  in  the  tabulation  loop. 

Length  (in.):  length  of  the  individual  s;haft  segment. 
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I.D.  (in.): 

0. D.  (in.): 
M.I.D.  (in.): 
M.O.D.  (in.): 


inner  diameter  for  calculating  flexural  rigidity, 
outer  diameter  for  calculating  flexural  rigidity. 

"mass  inner  diameter"  used  for  calculating  mass  distribution, 
"mass  outer  diameter"  used  for  calculating  mass  distribution. 


Item  3.0  Shaft  Materials 


There  are  four  columns  in  the  table: 


Starting  Node: 


segment  number  at  which  the  present  material 
data  set  begins  to  apply  until  the  next  data  set 
appears. 


Density  (lbs./cu.-in.):  weight  density. 
Young's  Mod  (psi):  Young's  modulus. 

Shear  *'od  (psi):  shear  modulus. 


3.1  Error  Message  . 

If  the  first  line  in  the  above  tabulation  does  not  refer  to  the 
first  shaft  element,  an  error  message  will  be  written  out  and  further 
execution  will  be  halted. 


Item  4.0  Lumped  Inertias 


Following  the  heading,  there  are  five  columns: 


Nodal  Station: 


Weight  (lb.): 


(lb. -in.4) 


nodal  station  number  at  which  the  present  set  of  lumped 
inertias  is  assigned. 

weight  of  an  additional  rigid  body  attached  to  the 
designated  nodal  station. 


Polar  Inertia;  weight  polar  moment  of  inertia  of  the  attached  rigid 
(lb.-in.^)  body. 

Trans.  Inertia:  weight  transverse  moment  of  inertia  of  the  attached  rigid 


body. 


CG  Offset  (in.):  axial  location  of  the  center  of  gravity  of  the  attached 

rigid  body  relative  to  the  nodal  station. 


4.1  Error  Message 

If  a  nodal  station  number  In  the  above  tabulation  exceeds  the  available 
range,  an  error  message  will  be  written  out  and  further  execution  will 
be  halted. 


Item  5.0  Bearing  Load  Distribution 

Sta.tic  bearing  loads  due  to  gravity  and  misalignment  are  calculated  according 
to  static  bearing  data  entered.  This  group  of  output  is  bypassed  if  no  bear¬ 
ing  is  indicated  (LBEA  *  0  in  the  input).  If  only  one  bearing  is  detected, 
static  equilibrium  will  not  be  possible,  thus  the  program  will  write  an  error 
message  and  stop  execution.  If  zero  radial  bearing  stiffness  is  assigned  to  a 
designated  bearing  station  in  either  direction,  a  default  value  of  0.1  lbs. /in. 
will  be  assigned  and  an  "attention  message"  will  be  printed  out. 


Numerical  tabulation  contains : 


Brg.  No.: 

St.  No. : 

Location  (in.): 
Vertical  Plane: 
Horizontal  Plane: 


bearing  index  number. 

station  number  assigned  to  each  bearing, 
axial  location  of  the  bearing. 

misalignment,  load,  and  moment  in  the  vertical  plane, 
misalignment,  load,  and  moment  in  the  horizontal  plane. 


The  tabulation  is  followed  by  the  total  weight  and  the  axial  location  of  the 
center  of  gravity. 


B.  SUMMARY  OF  DYNAMIC  DATA  (LEVEL  I) 

Item  6,0  Number  of  Speed  Groups 

This  statement  gives  the  number  of  speed  groups  treated  in  the  particular  calcu¬ 
lations  as  specified  by  the  parameter  NCASE  of  input  card  1.  It  also  indicates 
the  number  of  times  Items  8.0  through  13.0  will  appear. 

Item  7.0  Type  of  Vibration 

This  statement  identifies  whether  the  computation  pertains  to  torsional  vibration, 
bending  vibration,  or  both  as  determined  by  the  control  parameter,  LTYP,  given 
by  input  card  3. 

Item  8.0  Speed  Group  Number 

This  heading  applies  to  Items  9.0  through  13.0  to  follow. 

Item  9.0  Excitation  Frequencies 

Frequency  group  number  is  indicated  and  the  frequencies  of  the  group  in  Hz  are 
printed  out.  This  item  is  omitted  for  synchronous  cases  as  dictated  by 
LRUN  =  1  in  input  card  10. 
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C.  LEVEL  I  DYNAMIC  RESULTS 


Item  10,0  Torsional  Response  Data 


If  the  value  of  1  is  assigned  to  the  parameter  LTYP  in  input  card  3,  calculations 
pertaining  to  torsional  vibrations  only  will  be  performed.  The  following  group 
of  output  will  be  printed  for  each  of  the  excitation  frequencies  one  at  a  time. 
This  group  of  output  will  be  suppressed  if  the  value  of  3  is  assigned  to  LTYP 
to  treat  both  torsional  and  bending  vibrations;  instead,  the  torsional  results 
will  then  be  described  in  terms  of  the  "Holzer"  stiffness  (see  Item  12.0). 


10.1 


The  dynamic  torsional  response  distribution  for  all  nodal  stations  due 
to  a  unit  twist  moment  applied  at  the  end  of  the  rotor  is  listed.  A 
new  page  is  used  for  listing  these  data.  In  the  event  that  a  no-twist 
(null  torsional  displacement)  condition  is  calculated,  an  alert  message 
is  written,  saying 

"END  NODE  IS  STATIONARY  AT  #.#### E  W  HZ 
TORS  STIFF  BELOW  IS  END  TORQUE  PER  UNIT  TWIST  OF  FIRST  NODE." 

Captions  preceding  the  tabulation  contain: 


Frequency  (Hz): 
Node  No. : 


Location  (in.) 

Tors.  Stiff: 
(in. -lb. / rad. ) 


Frequency  of  torsional  excitation. 

The  station  number  at  which  the  exciting  torque 
is  applied.  The  last  station  number  is  printed 
he  re . 

Axial  location  of  the  above  node. 

The  dynamic  torsional  stiffness  at  the  excita¬ 
tion  point.  In  the  event  that  the  above-described 
alert  message  had  been  written  out,  the  definition 
given  there  applies. 


Response  at  each  node  is  tabulated  as  follows: 


Node : 

Location  (in.): 


Station  number  at  which  tiie  r 
Axial  location  of  station. 
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Relative  Twist:  Normalized  torsional  displacement.  In  this  listing 

the  peak  torsional  displacement  is  used  as  the  scale 
for  normalization. 

The  actual  twist  per  unit  excitation  torque  is: 

RELATIVE  TWIST  (present  station) 

RELATIVE  TWIST  (end)  •  TORS.  STIFF. 

If  the  rotor  end  is  a  stationary  point  as  indicated  by  the  alert  message  then 
the  above  formula  is  replaced  by: 

RELATIVE  TWIST  (present  station) _ 

RELATIVE  TWIST  (first  station)-  TORS.  STIFF. 

Unit  Twist  Rate:  Local  twist  rate  per  unit  excitation  torque 

(rad. /in. -lb. )  (applied  at  the  end  of  the  rotor). 

10.2 

The  dynamic  torsional  response  distribution  at  selected  response 
stations  due  to  a  unit  twist  moment  applied  at  each  selected  excitation 
station  is  listed. 

The  selected  stations  are  all  those  identified  in  input  card  8.  Torsional 
excitation  stations  are  those  with  the  corresponding  value  of  "Excitation 
Type  Index",  K8(I)  3  2,  5,  6  or  8  in  input  card  9.  A  new  page  is  used 
for  each  excitation  station.  Three  special  conditions  can  exist  to 
cause  a  corresponding  alert  message  to  be  written.  If  the  excitation 
station  is  found  to  be  stationary,  either  rotor  half  (aft  or  fore)  must 
also  be  stationary.  This  condition  is  recognized  as  (1)  fore-segment 
resonance  or  (2)  aft-segment  resonance.  The  alert  message  is  written 
out,  including  the  required  special  definition  for  "Tors.  Stiff." 

For  condition  (3),  torsional  resonance  of  the  system,  the  alert 
message  is  also  written  out. 


Appropriate  captions  precede  the  listing  o f  response  distribution.  A 
four-column  response  tabulation  is  the  same  as  previously  described 
except  that  only  the  selected  response  stations  are  included.  The 
relative  twist  is  normalized  at  the  excitation  station  except  for  the 
three  special  cases  discussed  above.  For  fore-segment  resonance,  the 
twist  at  the  first  station  is  taken  to  be  unity.  For  aft-segment 
resonance,  the  twist  at  the  rotor  end  is  taken  to  be  unity.  For 
torsional  resonance,  the  peak  twist  is  taken  to  be  unity. 


Item  11.0  Bending  End  Determinants 


"Myklestad"  determinants  or  end  determinants  of  the  bending  problem  are  listed 
under  appropriate  headings  of  the  frequency  range  in  concern.  For  the 
synchronous  case  as  designated  by  LRUN  a  1  in  input  card  10,  each  frequency 
(Hz)  should  be  precisely  1/60  times  speed  (RPM).  Co-rotational  and  counter- 
rotational  determinants  are  separately  listed.  This  listing  is  omitted  if 
LTYP  =  1  in  input  card  3;  i.e.,  if  torsional  response  only  is  calculated. 


Examination  of  this  listing  for  a  change  of  sign  of  the  end  determinant  allows  one 
to  locate  the  critical  speed  (for  the  synchronous  problem)  or  the  resonant  fre¬ 
quency  (for  the  asynchronous  problem)  approximately  without  performing  Level  II 
computations. 


Item  12.0  Torsional  End  Stiffness 

"Holzer"  stiffness  or  end  stiffness  of  the  torsional  problem  is  listed  along¬ 
side  the  frequency  of  excitation.  This  output  is  activated  only  when  the 
parameter  LTYP  in  input  card  3  is  given  the  value  3  to  designate  both  torsional 
and  bending  calculations  and  the  parameter  LRUN  in  input  card  10  is  set  to  0  for 
asynchronous  calculations .  * 

Examinations  of  this  listing  for  a  change  of  sign  of  the  torsional  end  stiff¬ 
ness  allows  one  to  locate  the  torsional  resonance  frequency.  No  other  pro¬ 
vision  is  made  to  determine  the  torsional  resonance  frequency  in  this  program. 


Dynamic  bearing  data,  as  used  in  Level  I  (isotropic  representation) ,  are 
tabulated  under  headings  of  bearing  number,  station  number,  location  measured 
from  left  end  of  rotor  (axial  distance),  radial  stiffness  and  angular  stiffness. 
One  set  is  given  for  each  speed.  This  output  is  omitted  if  only  torsional 
calculations  are  performed  (LTYP  ■  1  in  input  card  3)  or  if  so  designated  by 
the  user  (LPRI  =  -1  in  input  card  3). 


D.  LEVEL  II  DATA 


Item  14.0  Calculation  Sumciax 


The  following  messages  are  printed  out: 


•  an  alphanumeric  string  giving  the  job  identification  and  job 
itle  as  entered  in  input  card  2; 


Level  II  run  mode  according  to  IRUN  (see  descriptions  under 
input  card  14); 


type  of  excitation  (for  IRUN  *  4  only)  according  to  ITYPE 
(input  card  14);  and 


•  under  respective  headings,  station  numbers  at  which  torsional 
and/or  bending  excitations  are  applied  according  to  input  cards 


8  and  9  are  listed. 


These  messages  together  with  Items  6,0  through  9.0  describe  the  overall  content 
of  the  dynamic  results. 


Item  15.0  Tabulation  of  Level  I  Matrices 


Matrices  are  printed  out  for  each  speed-frequency  combination  if  the  parameter 
IDIAG  of  input  card  14  is  set  to  the  value  2. 


If  torsional  calculation  is  performed  (LTYP  =1  or  3  in  input  card  3) 
the  torsional  mobility  and  impedance  matrices  are  printed  out  in 
succession.  The  torsional  matrices  are  speed  independent  and  are  thus 
printed  out  for  distinct  frequencies  only. 


If  bending  calculations  are  performed  (LTYP  =  2  or  3  in  input  card  3), 
the  following  bending  matrices  are  listed  under  their  corresponding 
headings  in  sequence. 
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•  Level  I  bending  mobility  matrix  in  the  Cartesian  representation. 

*  Level  I  bending  impedance  matrix  in  the  Cartesian  representation 
(omitted  if  torsional  calculation  is  not  performed  because  Item  15.3 
would  contain  the  bending  impedance  only). 

15.3 

Level  I  impedance  summary  contains  the  following  information: 

job  identification 
job  title 

speed  in  revolutions  per  second 
excitation  frequency  in  Hz,  and 
the  total  number  of  degrees  of  freedom 


The  consolidated  bending-torsional  impedance  matrix  is  printed  out  on  a  new 
page.  The  bending  impedance  matrix  is  in  the  Cartesian  representation  and  is  in 
the  upper  left  corner.  The  torsional  impedance  matrix  is  in  the  lower  right 
comer. 

Item  16.0  Level  II  Bearing  Data 

This  set  of  output  is  omitted  if  both  LBEA  (input  card  3)  and  IBRG  (input 
card  14)  are  zero. 


Under  captions  of  speed  (revolutions  per  minute)  and  excitation  frequency 
(Hz),  bearing  data  are  tabulated  under  appropriate  headings.  A  separate  line 
is  written  for  each  bearing.  If  the  bearing  is  capable  of  rendering  both 
angular  and  translational  restraints,  the  angular  characteristics  of  the  bear 
ing  are  written  after  its  translational  characteristics.  The  headings  of  the 
table  are  self-explanatory.  Each  line  contains  the  following  information: 

•  bearing  index  number  (line  number  in  table). 

•  station  number  of  bearing  in  rotor  model. 

•  radial  or  angular  bearing. 

•  eight  matrix  coefficients  of  the  bearing, 

K  =  stiffness  coefficient 
B  =  damping  coffficient 
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The  units  of  K  are  in  (lb. /in.)  for  a  radial  bearing  and  in  units  of  (in. -lb. /rad. ) 
for  an  angular  bearing.  The  units  of  B  are  those  of  K  times  seconds. 

Item  17.0  Level  II  Bending  Impedance  Data 

Impedance  matrices  including  Level  II  bearing  data  are  printed  out  if  the 
parameter  IDIAG  is  set  to  2  in  card  14. 

17.1 

Bending  impedance  matrix  with  Level  II  bearing  data  is  printed  in  the 
Cartesian  representation  provided  IBRG  (input  card  14)  is  not  zero. 

17.2 

Bending  impedance  matrix  with  Level  II  bearing  data  is  printed  in 
rotating  coordinates. 
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£.  LrrVEL  II  OUTPUTS  --  RESULTS  OF  DYNAMIC  BENDING  ANALYSIS 

This  set  of  output  covers  5  different  modes  of  dynamic  analysis  corresponding 
to  IRUN  *  1  to  5  (input  card  14).  The  5  modes  are: 

(i)  Critical  speed  (IRUN  =  1) 

(ii)  Unbalance  response  (IRUN  *  2) 

(iii)  Asynchronous  resonance  (IRUN  =  3). 

(iv)  Asynchronous  response  (IRUN  =  4). 

(v)  Stability  analysis  (IRUN  =»  5). 

(i)  and  (iii)  are  for  undamped  systems  while  (ii),  (iv),  and  (v)  are  for 
damped  systems.  A  description  of  each  case  is  given  in  the  following. 


Item  18.0  Critical  Speed  Calculation 


Following  the  heading  "Critical  Speed  Determinants,"  the  determinants  of  the 
impedance  matrices  are  tabulated  versus  the  corresponding  frequencies.  The 
changes  of  sign  signify  the  existence  of  natural  frequencies. 


For  critical  speed  calculation,  only  co-rotational  (forward  whirl)  is  con 
sidered.  The  number  of  co-rotational  roots  found  is  indicated. 


The  tabulation  of  mode  shape  consists  of  four  columns.  The  first  column  gives 
the  natural  frequency.  The  second  column  shows  the  axial  location  of  each 
excitation  station.  The  third  and  fourth  columns  give  the  corresponding  deflection 
and  slope  (as  appropriate  for  the  station,  see  Section  3.1).  These  are 
normalized  with  respect  to  the  maximum  deflection  and  slope. 


Item  19.0  Unoa lance  Response 


19.1 

The  excitation  data  and  the  corresponding  response  orbit  are  tabulated 
at  each  rotor  speed.  Since  this  is  a  synchronous  case,  speed  (rpm) 

=  60  x  frequency  (Hz),  The  excitation  data  include  the  index  number, 
the  station  number,  the  tvpe  of  excitation  (force  or  moment),  and  the 
orientation.  The  unbalance  excitation  is  always  a  forward  whirl;  however, 
at  each  excitation  point,  there  may  be  a  distinct  phase  angle  based  on  a 
reference  point  on  the  shaft  which  can  be  chosen  by  the  user. 
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The  response  orbit  at  each  station  is,  in  general,  of  elliptical  shape.  The 
response  ellipses  can  well  be  described  by  four  spatial  parameters:  major  and 
minor  radii,  inclination  angle,  and  one  time-related  parameter  (the  phase 
reference  angle).  In  the  output  a  quantity,  the  ellipticity,  which  can  be 
derived  from  the  first  two  is  also  provided. 

The  major  and  minor  radii  set  the  size  of  the  ellipse.  The  inclination 
angle  is  the  angle  between  the  major  axis  and  the  horizontal  axis.  The 
ellipticity  is  defined  as  the  ratio  between  the  difference  of  the  two 
radii  (major  and  minor)  and  the  sum  of  them;  if  the  ratio  is  greater 
than  one,  its  reciprocal  is  used.  Hence,  a  zero  ellipticity  implies 
a  circular  orbit  while  a  unit  ellipticity  defines  a  straight  line.  The 
time-related  phase  reference  angle  at  the  station  is  measured  with  respect 
to  the  time  reference  point  chosen  by  the  user.  This  angle  if.  that  between 
the  axial  plane  passing  through  both  the  z  axis  and  reference  point  and 
the  axial  plane  passing  through  both  the  z  axis  and  displaced  center  of 
the  rotor.  The  angle  is  positive  when  the  displaced  center  of  the  rotor 
leads  the  reference  point. 

19.2 

Iteration  record  of  the  complex  eigenvalue  calculation  is  printed  out  if  tiie 
parameter  IGEN  of  card  14  is  a  negative  integer.  The  absolute  value  oi 
IGEN  represents  the  number  of  damped  natural  modes  to  be  sought  in  eacn 
speed  group,  and  its  negative  sign  requests  that  the  record  of  iteration 
be  included  in  the  output. 

The  iteration  record  consists  of  nine  columns.  The  first  column,  under 
the  heading  "I"  counts  the  number  of  iteration  cycles  which  have  been 
executed.  The  next  two  columns  are  respectively  current  estimates  of 
the  natural  frequency  (Hz)  and  the  system  damping  (lb. -sec. /in. ) .  For 
the  unbalance  response  problem,  the  synchronous  constraint  is  imposed; 
therefore,  the  natural  frequency  is  simply  (1/60)  of  the  damped  critical 
speed.  Modal  mass  and  critical  damping  ratio  occupy  the  next  two 
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columns,  they  are  defined  in  Section  6.2.  Estimated  corrections  of 
the  natural  frequency  and  the  system  damping  are  indicated  in  columns 
6  and  7.  The  computer  program  restricts  the  iterative  process  to  a 
confined  frequency  range;  therefore,  actual  change  of  the  natural  fre¬ 
quency  for  the  next  cycle  of  iteration  may  be  only  a  fraction  of  the 
estimated  correction;  when  this  happens,  the  change  of  damping  is  pro¬ 
portionally  reduced.  Under  the  heading  "Residue"  the  sum  of  squares 
of  real  and  imaginary  parts  of  the  residue  is  listed.  "D  Check"  heads 
up  the  "consistency  parameter"  given  by  Equation  (6.18),  it  is  used  to 
achieve  the  correct  factorization  operation  if  another  eigenvalue  in  the 
same  frequency  range  is  to  be  sought. 


While  the  internal  logic  of  the  computer  program  to  verify  convergence 
is  quite  reliable,  premature  termination  of  the  iterative  process  can 
occur.  Display  of  the  iteration  record  allows  the  user  to  decide 
whether  or  not  an  additional  "search"  effort  is  warranted.  Typically, 
if  a  trend  of  monotonic  decrease  of  "Residue"  is  shown  while  the  iterative 
process  is  interrupted  by  internally  set  limits,  another  trial  should 
be  made  with  either  or  both  of  the  following  options: 

•  Shift  the  frequency  range  if  one  of  the  frequency 
bounds  is  repeatedly  reached. 

•  Use  user  furnished  starting  values  which  are  extrapolated  from 
the  current  iteration  record. 


The  iteration  record  also  allows  the  user  to  verify  if  all  the  necessary 
convergence  conditions  are  satisfied;  i.e., 

•  The  value  of  "Residue"  should  be  reducing  by  larger  amounts 
upon  approaching  convergence. 

•  Estimated  corrections  of  frequency  and  damping  are  small  in 
comparison  with  their  current  values. 

«  The  modal  mass  is  approaching  a  positive  limiting  value, 

•  "D  Check"  is  becoming  stabilized. 

The  computer  program  presently  tests  the  first  two  conditions. 


19.3 


The  damped  natural  mode  shape,  accompanied  by  the  listing  of  speed, 
frequency,  and  critical  damping  ratio,  is  tabulated  in  the  same  manner 
as  the  response  orbit  and  is  printed  at  each  frequency  point  for  every 
mode  found  in  the  designated  speed  range.  This  calculation  may  be 
suppressed  if  the  parameter  IGEN  in  input  card  14  is  set  to  zero. 

The  resouant  response  including  excitation  data  is  also  tabulated  in  the 
same  way  as  the  response  orbit.  For  a  non- conservative  system  (e.g.,  a 
system  with  significant  damping)  the  resonant  response  of  the  rotor  can  be 
quite  different  from  its  corresponding  natural  mode  shape. 

Item  20.0  Asynchronous  Resonance 

The  set  of  output  is  similar  to  that  of  critical  speed  calculations,  except, 

in  addition  to  co-rotational  modes,  counter-rotational  modes  are  printed  out. 

Also,  the  rotor  speed  is  different  from  the  excitation  frequency. 


Item  21.0  Asynchronous  Response 


The  output  of  this  case  is  similar  to  that  of  unbalance  response  except  for 
the  non-synchronism;  namely,  the  rotor  speed  and  the  excitation  frequency  are 
different  from  each  other  and  the  excitation  may  be  either  forward  and 
backward  whirl  components  or  vertical  and  horizontal  components  depending 
on  the  value  assigned  to  the  parameter  ITYPE  in  input  card  14. 


21.1 

Excitation  data  and  response  orbits  at  each  combination  of  rotor  speed 
and  excitation  frequency  are  printed  out. 


21.2 

Iteration  record  of  the  complex  eigenvalue  calculation  is  printed  out  if 
the  parameter  IGEN  of  card  14  is  a  negative  integer.  Remarks  under  19.2 
are  applicable  except  that  the  computation  is  performed  at  a  fixed 
shaft  speed  while  the  sought  natur?1  frequency  has  no  direct  relation¬ 
ship  with  the  shaft  speed. 
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21.3 


Results  for  the  damped,  asynchronous  natural  modes  in  each  frequency  group 
and  resonant  response  are  printed  out.  Again  this  calculation  would  be 
suppressed  if  I  GEN  -  0  on  input  card  14. 


Xu 6m  22,0  Stability  Analvs is 

The  output  of  stability  analysis  is  essentially  that  portion  of  Item  21.3 
pertaining  to  the  damped,  asynchronous,  natural  modes.  The  iteration  record 
described  under  21.2  is  also  available  in  a  stability  analysis. 
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3.4  Output  Samples 

The  output  samples  have  been  taken  from  computer  runs  made  for  the  rotor 
defined  by  the  data  in  Section  3.2.  Each  output  sample  corresponds  to  an 
input  sample  previously  given. 

3.4.1  Critical  Speed  (IRUN  =  1) 

The  results  of  the  critical  speed  analysis  are  listed  in  Table  13. 

Items  1-5  relate  to  various  aspects  of  rotor  data  under  self- 
explanatory  headings.  Items  6-13  summarize  Level  I  results.  The 
column  of  co-rotational  end  determinants  shows  a  change  of  sign  near 
5920  rpm  which  should  be  the  location  of  a  critical  speed.  Although  a 
change  of  sign  is  also  indicated  by  the  column  of  counter-rotational 
determinants,  the  counter-rotational  motion  is  not  excitable  by  rotor 
unbalance  unless  there  is  significant  anisotropy  in  the  rotor  system. 
Item  14.0  is  mainly  an  identification  table.  Item  16.0  lists  the  pre¬ 
vailing  bearing  data  used  in  Level  II  analysis  in  the  eight-coefficient 
format.  In  this  case,  the  data  of  Level  I  bearings  as  described  by  Item 
13.0  are  retained.  Item  18.0  summarizes  the  results  associated  with  the 
established  critical  speeds.  First,  the  determinants  of  the  system 
represented  by  the  selected  action  stations  are  listed  alongside  the 
speed.  Then  the  mode  shape,  co-rotational  in  this  case,  is  given  in 
the  normalized  representation.  The  amplitude  distribution  is  typical 
of  a  "flexible  translational"  mode.  Peak  amplitude  is  near  mid-span. 
Motion  at  each  of  the  two  bearing  stations  is  less  than  1/5  ot  the 
peak  amplitude.  Symmetry  about  the  mid-span  is  nearly  preserved. 

3.4.2  Unbalance  Response  (IRUN  =  2) 

A  preliminary  run  limited  to  cevel  I  (KRUN  =  0  in  input  card  1) 
yielded  results  highlighted  in  Table  14.  The  important  information  is 
contained  in  the  list  of  co-rotational  determinants  (Item  11.0). 

Reversal  of  sign  is  seen  between  4243  rpm  and  4931  rpm  and  also  between 
6662  rpm  and  7743  rpm.  Simple  interplation  yields  estimated  critical 
speeds  of  4350  rpm  and  7000  rpm.  They  are  expected  to  be  respectively 
the  first  translational  and  angular  modes. 
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The  complete  computer  output  for  the  unbalance  response  analysis  is 
given  in  Table  15.  Two  speed  groups  are  included,  which  respectively 
cover  the  range  4000  -  5000  rpm  and  the  range  6000  -  8000  rpm.  Level  IT 
bearing  data  (Item  16.0)  in  the  eight  coefficient  format,  together  with 
the  excitation  description  and  response  (Item  19.1)  are  tabulated  togecher 
on  the  same  page  at  each  speed  point.  Note  that  unbalance  is  specified 
in  units  of  (in.-oz.)  in  input  card  16A  but  is  represented  by  the  cor¬ 
responding  centrifugal  force  at  each  speed  in  the  output.  Circularity 
in  the  response  orbit  is  indicated  by  equal  magnitudes  of  major  and 
minor  radii  at  all  stations.  The  amplitude  peaks  mildly  between  4230  rpm 
and  4349  rptn  with  a  nearly  symmetrical  mode  shape,  corresponding  to  a 
unit  unbalance  (1  in.-oz.')  near  mid-span  (station  18\  Symmetry  ~f  the 
mode  shape  is  reflected  not  only  by  the  amplitude  distribution  but 
is  also  indicated  by  the  nearly  uniform  phase  reference.  In  the  second 
speed  group,  the  unit  unbalance  is  shifted  to  station  °9  which  -»  near¬ 
ing  support.  Tilts  is  done  because  an  angular  mode  shape  is  anticipated. 
Peaking  in  the  second  speed  group  is  observed  between  6928  rpm  and 
7182  rpm,  again  very  mildly.  '’'he  angular  mode  shape  la  IndicotcJ  by 
the  difference  ’n  the  chnse  reference  of  nearly  18C  degrees  between 
stations  2  and  29. 

3.4.3  Asynchronous  Resonance  (XRUN  =  3) 

Two  runs  of  asynchronous  resonance  analysis  wt re  made.  The  first  run 
was  limited  to  Level  I,  but  dealt  with  both  torsional  and  bending 
motions.  The  descriptive  data  of  the  rotor  system  have  already  been 
discussed  in  previous  examples,  the  essential  output  of  the  present 
run  are  the  lists  of  Item  11.0,  the  bending  end  determinants,  and 
Item  12.0,  the  torsional  end  stiffness,  which  are  tabulated  one  after 
another  and  followed  by  Level  I  bearing  data,  Item  13.0,  within  each 
speed-frequency  group  in  Table  16.  Charge  of  sign  indicates  the 
location  of  a  resemneo  '•fidiLf'-',  ft  vs  ^-n  that  bunding  asynchronous 
resonances  or  both  r0-rnt:#»tiO’-»  i  ’"-d  ^  ->  r  he --rotation  types  are  located 
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In  order  to  gain  some  additional  insight  of  the  bending  modes  in 
p.-rt-\.~ation  for  subsequent  analyses,  a  second  asynchronous  resonance 
analysis  was  dedicated  to  the  bending  modes  of  the  two  lower  fre¬ 
quency  ranges,  this  time  invoking  Level  II  analysis  to  obtain  the  mode 
shapes.  Level  II  output  of  the  second  asynchronous  resonance  analysis 
is  given  in  Table  17.  In  the  first  frequency  range,  resonances  are 
found  at  68.6  Hz  and  67.5  Hz,  respectively,  for  the  co-rotational  and 
counter-rotational  modes.  The  relative  frequency  relationship  is  due 
to  the  effect  of  gyroscopic  inertia.  The  amplitude  distributions  of 
these  two  modes  are  practically  the  same.  It  should  be  recalled  that 
the  relatively  low  bearing  stiffness  values  assigned  to  this  frequency 
range  is  an  attempt  to  emulate  the  "half-speed"  behavior  of  a  fluid 
film  bearing.  Since  the  reduced  effective  bearing  stiffness  at  "half¬ 
speed"  is  associated  only  with  the  co-rotational  motion,  the  counter- 
rotational  mode  found  in  this  frequency  range  should  be  disregarded  for 
the  present  study.  In  the  second  frequency  range,  again  a  co-rotational 
mode  and  a  counter- rotational  mode  are  found,  respectively,  at  100.3  Hz 
and  94.6  Hz.  Amplitude  distributions  of  these  modes  are  again  very 
similar  to  each  other.  In  comparison  with  the  68.6  Hz  mode,  the  am¬ 
plitudes  at  the  bearing  supports,  stations  2  and  29,  are  much  reduced 
a-  the  higher  frequency  modes. 

3.4.4  Asynchronous  Response  (I RUN  88  4) 


The  example  for  damped  asynchronous  response  was  calculated  with  the 
same  speed-frequency  combinations  used  in  the  previous  example;  con¬ 
sequently,  the  input  was  set  up  to  access  the  pre-stored  intermediate 
data  file  in  lieu  of  repeating  Level  I  analysis.  The  complete  output 
of  the  example  is  3hown  in  Table  18. 


Excitation  is  specified  to  be  the  space-fixed  type.  For  the  first 
frequency  range  a  unit  excitation  force,  aimed  in  the  direction  of  the 
static  load,  is  assigned  at  station  18,  which  is  ne.r  the  mid-span 
of  the  rotor  and  is  the  peak  deflection  point  of  the  undamped  co- 
rotational  mode  in  Table  17,  For  the  second  frequency  range,  the 
excitation  force  is  shifted  to  station  29,  which  is  a  bearing  support 
where  deflection  is  minimal  for  both  undamped  modes  in  this  frequency 
range. 
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Response  orbits  at  frequencies  which  span  each  frequency  range  are  listed 
in  order.  The  input  set-up  required  the  response  to  be  calculated 
at  damped  natural  frequencies  and  allowed  up  to  two  damped  natural 
modes  to  be  found  in  each  frequency  range.  The  record  of  iteration 
progression  in  the  process  of  finding  the  damped  natural  mode  is  to  be 
printed  out  and  starting  values  for  the  iterative  processes  are  furnished 
according  to  the  reoults  of  stability  analysis,  which  will  be  discussed  in 
the  next  section. 

For  the  first  frequency  range,  the  iteration  record  shows  convergence 
to  be  reached  in  two  cycles  for  the  first  mode.  The  rapid  convergence 
is  expected  because  the  starting  values  are  actually  the  converged 
solution  obtained  from  the  stability  analysis.  Improvement  achieved  by 
iteration  steps  is  beyond  the  resolution  of  the  output  format.  There  is 
no  other  mode  expected  in  this  frequency  range,  therefore,  the  same 
starting  values  are  used  for  finding  the  "non-existing"  second  mode. 

The  iteration  record  shows  20  cycles  without  achieving  convergence. 
Additional  discussions  on  the  iteration  record  will  be  found  in  Section 
3.4.5.  The  damped  natural  frequency  of  68.11  Hz  is  seeu  to  be  quite 
close  to  the  undamped  approximation  of  68.62  Hz.  The  critical  damping 
ratio  of  0.030  suggests  a  rather  modest  stability  margin.  Am¬ 
plitude  distribution  of  the  major  radii  is  not  too  different  from  the 
amplitude  distribution  of  the  undamped,  isotropic  mode  shape.  All 
orbit  parameters  are  fairly  uniform.  The  minor  radius  is  less  than  (1/5) 
of  the  maj'or  radius  at  all  stations,  indicating  substantial  anisotropy 
of  the  system.  Since  the  minor  radii  are  all  positive,  the  orbits  are 

co-rotational.  Response  amplitude  at  station  18,  where  the  unit 

-4 

excitation  is  located,  shows  a  major  radius  of  3.34  x  10  in.  This 
is  over  30  times  larger  than  that  calculated  at  68.05  Hz,  which  is  the 
closest  assigned  frequency.  Clearly,  if  the  system  is  not  highly 
damped,  it  is  important  that  response  be  calculated  precisely  at  the 
natural  frequency. 


In  the  second  frequency  range,  convergence  is  similarly  rapid  for 
both  modes.  The  natural  mode  shapes  have  very  similar  distributions  of 
major  radii.  The  minor  radii  of  the  mode  at  102.66  Hz  are  algebraically 
smaller  than  those  of  the  mode  at  97.57  Hz  at  all  stations,  however 
the  differences  are  very  small.  There  are  no  clear-cut  shape  features 
to  distinguish  those  two  modes.  The  values  of  the  critical  damping 
ratio  are  quite  different.  The  mode  at  97.57  Hz  is  not  well  damped, 
critical  damping  ratio  ■  0.032,  and  the  resonant  response  to  the 
"misplaced"  excitation  is  more  or  less  similar  to  the  natural  mode  shape 
and  the  amplitudes  at  all  stations  are  significantly  higher  than  those 
at  the  nearest  assigned  frequency  of  97.51  Hz.  The  mode  at  102.66  Hz 
is  fairly  well  damped.  The  resonant  response  to  the  "misplaced" 
excitation  no  longer  resembles  the  natural  mode  shape,  ».nd  peaks  only 
moderately  above  the  response  «t  the  nearest  assigned  frequency  of 
102.45  Hz. 

3.4.5  Stability  Analysis  (IRUN  =*  5) 

From  the  second  run  of  asynchronous  resonance  analysis,  estimates  can 
be  made  cn  the  approximate  frequencies  of  the  damped  natural  modes.  In 
fact,  one  might  as  well  use  the  same  speed-frequency  combinations  of  the 
asynchronous  resonance  analysis.  Pre-stored  intermediate  data  can  be 
accessed  in  lieu  of  repeating  Level  I  calculations.  One  mode  is  ex¬ 
pected  in  the  first  frequency  range,  while  two  modes  are  expected  in 
the  second  frequency  range.  Thus,  the  single  input  set-up,  which  covers 
both  frequency  ranges,  specifies  two  modes  to  be  sought  in  each  fre¬ 
quency  range.  The  second  frequency  range  is  somewhat  wider  than  if 
only  one  mode  is  to  be  sought  (see  Section  2.2),  nine  frequency  points 
are  used  to  divide  up  this  range,  t  »o  more  points  than  the  number  used 
for  the  first  frequency  range  to  ensure  computation  accuracy. 

Since  there  is  as  yet  no  clue  on  the  approximate  value  of  damping 
associated  with  various  modes,  a  first  trial  was  run  allowing  the 
program  to  use  its  internal  logic  to  initiate  the  iteration  process. 

The  output  of  this  run  is  given  as  Table  19. 
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In  the  frequency  range,  convergence  of  iteration  for  the  first  mode 
was  reached  after  four  cycles.  There  being  no  second  mode,  the  search 
e'ffort  resulted  in  repeated  attempts  to  exceed  the  upper  bound  of 
the  frequency  range.  The  residue  shows  no  definite  trend  of  reducing. 

The  modal  mass  consistently  shows  an  anomalous  negative  value.  The 
natural  frequency  and  the  critical  damping  ratio  are  exactly  equal  to 
those  given  in  Table  18  as  far  as  the  available  digits  reveal.  The 
mode  shape  parameters  are  slightly  different  owing  to  a  somewhat 
larger  residue  at  the  last  cycle  of  iteration.  In  the  second  frequency 
range,  convergence  of  iteration  for  the  first  mode  was  reached  after 
six  cycles,  with  an  extremely  small  residue  at  the  end.  Search  for  the 
second  mode,  however,  did  not  succeed.  The  iteration  process  developed 
an  oscillating  pattern.  A  closer  look  revealed  that  after  each  oscillating 
cycle,  the  residue  does  reduce  monotonically.  Therefore,  the  attempt 
to  find  the  second  mode  in  this  frequency  range  was  continued  after¬ 
wards.  Modal  parameters  of  the  first  mode  at  97.57  Hz  are  identical 
to  those  given  in  Table  18. 

A  second  trial  was  made  using  converged  solutions  of  the  first  modes 
in  each  frequency  range  as  the  respective  starting  values.  For  the 
second  set  of  starting  values,  the  first  set  was  repeated  in  the  first 
frequency  range  since  another  mode  is  really  not  expected.  The 
designated  values  for  continuation  as  shown  by  the  previous  iteration 
record  was  used  as  the  second  set  in  the  second  frequency  range.  The 
second  trial  still  failed  to  establish  the  second  mode  in  the  second 
frequency  range.  Previously  noted  trend  of  a  monotonically  reducing 
residue  persisted  at  a  moderate  pace.  Therefore,  a  third  trial  was 
made  with  the  starting  damping  value  "accelerated"  beyond  the  trend 
indicated  by  the  iteration  record  of  the  second  trial.  This  time 
convergence  was  reached  in 'four  cycles.  Iteration  records  pertaining 
to  the  second  mode  in  the  second  frequency  range  are  shown  in  Table  20. 
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SECTION  IV 


THEORETICAL  OVERVIEW 


Rotordynamic  analysis,  in  the  manner  treated  here,  deals  with  a  linear 
system.  As  such,  much  of  the  analytical  methods  which  were  developed  for 
linear  control  systems  would  be  applicable.  One  can  indeed  go  quite  far 
to  enumerate  analogous  concepts  between  the  fields  of  rotordynamics  and 
linear  controls.  It  is  quite  appropriate  to  regard  a  rotor  system  as  a 
multi -terminal  "black  box."  Much  of  the  mathematical  operations  involved 
in  rotordynamic  analysis  concerns  the  "transfer  functions"  of  the  "black 
box."  The  practical  aspects  of  rotor  engineering,  however,  require  an 
understanding  of  the  restrictions  of  the  simplifying  assumptions  which  under¬ 
lie  the  method  of  analysis  and  an  understanding  of  the  general  characteris¬ 
tics  of  rotor  systems  which  may  take  on  special  significance  as  dictated 
by  particular  design  features  and  operating  environments,  Tc  address 
these  issues,  the  subject  matter  has  to  be  identified  as  a  high  speed  rotor 
system,  not  merely  a  linear  black  box.  The  present  section  will  examine 
the  "anatomy"  of  rotordynamic  analysis.  While  the  accompanying  software 
specifically  utilizes  the  "frequency-response"  approach  as  a  starting 
point,  the  physical  ideas  to  be  discussed  here  are  less  restrictive.  De¬ 
tails  of  mathematical  derivations  are  contained  in  Sections  V  and  VI. 
Immediate  attention  here  is  directed  toward  basic  concepts. 

4.1  Idealized  Rotor  Structure 

While  the  historical  evolution  of  rotordynamic  studies  began  by  emulating 
the  analysis  of  beam-like  structures,  the  contemporary  point  of  view  recog¬ 
nizes  two  important  distinctive  features  in  the  dynamic  features  of  a  high 
speed  rotor;  they  are 

o  gyroscopic  inertia,  and 
o  support  compliance 

4.1.1  Gyroscopic  Effect 

In  normal  operations  of  a  rotor,  even  during  startup  and  shutdown 
transients,  the  rotational  speed  can  be  treated  as  a  constant  for 
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lateral  motions  of  the  rotor.  Since  functional  requirements  of  the 
machinery  generally  include  a  well  defined  rotational  axis  relative 
to  its  platform,  any  inclination-deflection  of  the  shaft-axis  is 
presumably  small.  Furthermore,  in  comparison  with  the  rotational 
speed,  the  angular  rate  of  any  platform  motion  is  probably  quite 
small.  Under  these  circumstances,  Euler's  Law  for  angular  motions 
can  be  reduced  to  a  cross-axis  coupling  of  the  gyroscopic  inertia. 

A  thorough  derivation  of  this  idea  is  presented  in  Appendix  A. 

The  consequence  of  cross-axis  gyroscopic  coupling  is  two  fold. 

First  of  all,  lateral  motions  of  the  rotor  generally  would  not  be 
planar  —  the  shaft  center  motion  would  typically  describe  an 
elliptic  orbit.  In  fact,  if  rotational  symmetry  prevails  in  the 
rotor  system,  the  orbit  would  be  circular.  Secondly,  each  free 
vibration  mode  of  the  equivalent  non-rotating  shaft  is  split  into 
two  modes  which  are  distinguishable  not  only  in  the  natural 
frequency,  but  also  in  the  sense  of  rotation  of  the  whirl  motion 
(relative  to  the  shaft  rotation). 

4.1.2  Rotor  Flexibility 

Rotor  flexibility  is  increasingly  of  importance  as  mechanical 
equipment  keeps  up  its  pace  with  technological  sophistication.  The 
word  "flexibility",  however,  is  a  relative  quantity  in  the  context 
of  rotordynamic  phenomena.  Since  the  main  external  constraints  on 
the  rotor  axis  are  the  bearing  supports,  bearing  compliance  is  in 
fact  the  natural  reference  for  rotor  flexibility.  This  idea  can  be 
illustrated  by  a  simple  example  as  depicted  in  the  following 
sketch.  Here,  a  concentrated  load  is  applied  to  the  midpoint  of  a 
uniform  beam  which  is  supported  from  the  ground  by  two  springs  of 
equal  stiffness. 


The  total  deflection  at  the  applied  force  is  the  sum  of  beam 
3 

deflection  Fit  and  spring  deflection  £  .  The  ratio  of  these  two 
48EI  2k 

3 

quantities,  k&  ,  can  be  regarded  as  the  "static  flexibility  index." 

24EI 

It  is  noted  that  in  such  an  example  the  overhung  portions  of  the  beam 
have  no  contribution  to  static  "flexibility".  Also,  the  applied  force 
F  is  not  an  explicit  parameter.  However,  it  is  evident  that  its  loca¬ 
tion,  as  well  as  the  span  between  the  springs,  defines  the  physical 
setup.  In  a  realistic  rotor,  the  rigidity  parameter  El  would  have  to 
represent  an  average,  and  the  "static  flexibility  index"  reflects  the 
relative  insensitivity  of  the  influence  of  the  bearing  stiffness  on 
the  two  lowest  natural  modes  of  the  rotor.  For  higher  natural  modes, 
the  ratio  of  the  bearing  span  to  the  characteristic  wave  length  of 
bending  vibration  may  be  considered  to  be  the  "dynamic  flexibility 
index"  •fc'Ytj/CEI/PA)"4.  This  index  represents  the  relative  ineffectiveness 
of  support  bearings  in  controlling  lateral  vibrations  of  the  rotor. 

4.1.3  Modeling  of  Shafting  Structure 

Shafting  can  be  structurally  modeled  as  a  sucession  of  beam  segments 
which  are  rigidly  connected  to  each  other. 

Division  of  the  rotor  into  interconnected  segments  is  necessary 
to  accomodate  variations  in  shaft  cross-sections  and/or  materials, 
the  attachment  of  wheel-like  appendages  as  rigid  bodies,  the 
presence  of  bearing  constraints,  and  sources  of  dynamic  excitation. 

A  common  first  approximation  is  to  assume  the  inter-segmental 
junction  as  a  boundary  across  which  deflection,  slope,  and  twist  are 
continuous,  whereas  jumps  in  various  other  physical  quantities 
are  allowed  to  take  place  as  required.  Theories  of  torsion  and 
flexure  for  slender  prismatic  bars  are  commonly  used  to  deal  with 
the  structural  aspects  of  the  shaft  segments.  In  the  original 
treatments  of  Holzer  and  Myklestad,  lineal  inertia  effects  are 
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assigned  to  the  ends  of  the  segment  while  the  segment  itself  is 
regarded  as  a  massless  torsion  or  flexure  spring.  In  so  doing, 
each  inter-segmental  junction  becomes  automatically  a  triplet  of 
degrees  of  freedom,  one  for  torsion  and  one  each  for  flexure  in  the 
two  lateral  planes.  Since  closed-form  solutions  of  a  uniform 
shaft  with  distributed  inertia  are  available  for  both  the  torsion 
and  the  flexure  problems,  they  can  be  incorporated  into  a  rotor- 
dynamic  analysis.  The  main  advantage  of  the  latter  approach  is  to 
allow  rotor  modeling  of  slender  shaft  segments  without  subdividing. 
Otherwise,  employing  the  lumped-parameter  method  in  the  manner  of 
Holzer  and  Myklestad,  it  is  necessary  to  subdivide  slender 
segments  such  that  the  length  of  each  subdivided  segment  is  about 
equal  to  its  diameter.  The  second  order  flexure  theory,  which 
includes  the  effects  of  rotary  inertias  and  shear  deformation 
can  also  be  incorporated  to  improve  accuracy  of  analysis  for  higher 
order  flexure  modes.  In  actual  practice,  however,  uncertainties 
in  the  treatments  of  junctions  and  attached  appendages  probably 
would  obscure  the  improvements  gained  through  the  use  of  second 
order  flexure  theory.  Accuracy  of  the  slender  bar  theory  of 
flexure  also  becomes  degraded  when  a  rotor  of  rather  stubby 
proportions  is  analyzed.  In  such  a  circumstance,  the  important  rotor 
motions  are  probably  rigid  body -like;  and  the  slender  bar  theory 
is  amiss  in  neglecting  the  rotary  inertias.  Shear  deformation  may 
be  of  inci 3ased  importance  relative  to  flexure,  but  since  the 
motion  is  predominently  due  to  bearing  support  compliance,  it  is 
not  essential  to  refine  the  elastic  aspect  of  the  flexure  theory. 

The  software  prepared  here  makes  use  of  the  distributed  analyses 
of  slender  bars,  while  lumped  correction  is  made  for  rotary 
inertias.  Omission  of  possible  contribution  of  shear  deformation 
on  high  order  flexure  modes  is  recognized  as  an  inherent  short¬ 
coming;  this  should  appear  mainly  in  some  uncertainty  in  the 
estimated  natural  frequencies  of  the  higher  modes  but  should  not 
contribute  significantly  to  the  estimated  mode  shapes. 
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4.1.4  Dynamic  Degrees  of  Freedom 

The  rotor  model  described  above  allows  estimates  to  be  made  on 
responses  to  excitations  and  the  conditions  of  resonances.  Each 
inter-segmental  junction  may  be  considered  to  be  a  location  of 
potential  excitation.  For  the  present  discussion  simple  harmonic 
temporal  dependence  is  assumed  for  all  excitations.  An  excitation 
may  be  any  combination  of  torsion,  lateral  force,  and  lateral 
moment.  Since  the  lateral  force  and  the  lateral  moment  may  be  in 
either  of  the  two  mutually  perpendicular  planes,  there  can  be  up  to 
four  independent  degrees  of  freedom  for  flexure  excitation.  The 
torsional  motion  is  basically  uncoupled  from  the  flexural  motions 
in  the  sense  that  a  torsional  moment  would  not  induce  a  flexural 
motion  and  a  lateral  force  or  moment  would  not  result  in  a 
torsional  twist.  There  may  of  course  be  simultaneous  torsional  and 
flexural  excitions  such  as  through  a  gear  mesh.  Flexural  motions 
in  the  two  lateral  planes  are  coupled  through  gyroscopic  inertia 
in  the  conventional  Cartesian  coordinate  system.  Prevailing 
symmetry,  however,  allows  the  flexural  motion  to  be  described  in 
a  pair  of  whirl  components,  which  have  opposite  senses  of  rotation 
and  are  uncoupled  from  each  other,  provided  the  bearing  support 
characteristics  are  isotropic  . 

4.1.5  Mobility  and  Stiffness  Matrices 

Corresponding  to  the  excitation  components  of  torsional  moment, 
lateral  force,  and  lateral  moment,  the  response  consists  of  dis¬ 
placement  components  of  torsional  twist,  lateral  deflection,  and 
lateral  slope  at  each  junction.  A  complete  description  of  the 
response  of  the  system  per  unit  of  each  excitation  is  given  by  the 
influence  coefficients  which  form  the  mobility  or  response  matrix. 
This  matrix  is  the  analog  of  a  transfer  function  of  a  control  system. 
The  inverse  of  the  mobility  matrix  is  the  impedance  or  stiffness 
matrix.  For  a  given  shafting  model,  these  matrices  are  dependent 
on  both  shaft  rotation  speed  and  the  frequency  of  excitation. 
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Because  the  model  is  conservative  and  isotropic,  these  matrices 
are  symmetrical  and  are  also  quasi-diagonal;  i.e.,  the  influence 
coefficients  among  torsional,  lateral  forward  whirl,  and  lateral 
backward  whirl  degrees  of  freedom  are  all  zero.  At  resonant 
conditions,  the  mobility  matrix  is  both  unbounded  and  degenerate, 
all  columns  are  proportional  to  each  other,  and  because  of 
symmetry  all  rows  are  proportional  to  each  other.  The  stiffness 
matrix  also  becomes  singular  at  resonance,  but  its  elements  remain 
finite.  These  properties  are  confined  to  the  applicable  partitioned 
submatrices  because  these  submatrices  are  uncoupled  from  one  another. 


4.2  Bearing  Support  Characteristics 
4.2.1  Matrix  Representation 


The  function  of  a  bearing  is  to  restrict  the  rotor  axis  to  a 
nominal  axis  under  realistic  static  and  dynamic  load  environments. 
Deviation  of  any  particular  point  of  the  rotor  axis  from  the  nominal 
line  can  be  characterized  by  three  lineal  and  two  angular  displace¬ 
ments.  These  may  be  designated  as  (6^,  5^,  6^,  sx>  s^)  in  accord¬ 


ance  with  a  right-handed  Cartesian  reference  system.  The  z-coordinate 
is  coincident  with  the  reference  axis  and  is  directed  toward  the  spin 
vector.  (s^,  s  )  are  rotor  axis  inclinations  respectively  in  the  z-x 
and  z-y' planes.  The  x-coordinate  is  directed  toward  the  predominant 
static  load;  e.g.,  earth  gravity.  The  bearing  would  resist  the  occur¬ 
ence  of  any  displacement  so  that  the  reaction  force  system  imparted 
by  the  rotor  to  the  bearing  is  generally  expressed  in  matrix  notation 
as 


R  =  Z-X 

R.  is  a  column  vector  comprising  the  five  reaction  components 

(F  ,  F  ,  F  ,  M  ,  M  )  while  X  is  the  displacement  vector  (6,6,6, 
x  y  z  x  y  x  y  z 

sx>  sy)  •  Z  is  a  (5x5)  matrix  containing  the  elements  with  both 
indices  (i,  j)  ranging  from  1  to  5.  The  values  of  Z,^  characterize 
how  rotor  displac  nents  are  being  resisted  by  the  bearing. 
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Ideally  if  would  be  desirable  to  design  the  bearing  such  that  Z^ 
is  diagonal  (e.g.,  Z  =  0  if  i  ^  j).  In  reality,  some  cross-coupling 

always  exists;  although  it  is  commonly  reasonable  to  assume  independence 

between  the  linear  (<S  ,  6  )  and  the  angular  (s  ,  s  )  as  well  as 

x  y  °  x’  y 

between  the  axial  (6  )  and  the  transverse  (6,6)  lineal  degrees  of 

z  x  y 

freedom.  That  is: 


Zlj  "  Z2j  =  Zjl  -  zj2  ~  0  for  J  >  2 
Z3j  -  Z^3  =  0  for  j  <  3 


Such  null  conditions  are  presumed  in  the  present  work.  That  is, 

cross-coupling  exists  between  s  and  6  and  also  between  s  and  s 

x  y  x  y 

onlv.  The  axial  characteristics  of  the  bearing  support  affect 

only  the  axial  dynamics  of  the  rotor,  which  are  commonly  quite 

benign  in  comparison  with  the  much  more  compliant  torsional  and 

lateral  degrees  of  freedom.  Henceforth,  no  further  attention 

will  be  given  to  the  axial  motion.  Thus,  bearing  characteristics 

concern  mainly  the  four  lateral  degrees  of  freedom. 


Matrix  elements  are  often  dependent  on  the  displacement  amplitudes 
and  sometimes  also  on  their  time  histories.  Thus,  there  are 
circumstances  when  rotodynamips  is  studied  by  step-by-step  numerical 
integration  with  respect  to  time  .  Although  such  methods 
are  theoretically  more  rigorous,  tbsy  have  proven  to  have  only 
limited  usefulness  because 


■  Computational  cost  consideration  precludes  execution  of 
such  methods  except  for  the  simplest  mechanical  models. 

•  Stability  difficulty  associated  with  numerical  integration 
often  masks  credibility  of  such  results. 
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*  The  method  of  dynamic  perturbation  analysis,  particularly 
if  one  includes  the  question  of  stability,  has  proven  to  be 
quite  adequate  in  most  realistic  engineering  problems.  (Xiestions 
of  large  amplitudes  and  anomalous  histories  can  be  relegated  to 
the  qualitative  judgment  of  the  experienced  rotordynamic  expert; 
in  only  extremely  rare  circumstances  do  such  questions  require 
serious  consideration. 

4,2,2  Linearization 

From  the  standpoint  of  dynamic  perturbation,  distinction  is  made  between 
a  static  equilibrium  component  and  a  dynamic  perturbation  component 
for  both  the  displacements  and  the  reactions.  Thus, 

X  =  Xo  +  X';  r-io  +  V 

(X' ,  F')  are  respectively  presumed  to  be  infinitesimal  in  comparison 
with  (Xq,  Fq),  Accordingly,  are  regarded  as  dependent  on  X^  but 
not  on  X'*  To  illustrate  the  idea  of  perturbation  linearization  one 
may  examine  the  one-dimensionai  load-displacement  curve. 


According  to  the  illustrated  curve,  a  straight-line  relationship 

appears  to  be  quite  adequate  for  0<  <$x>  X^.  In  this  range  Z^j  may 

be  regarded  as  a  constant.  However,  for  <5x?Xj,  incremental  change 

of  F  is 
x 


X 

where  6'  is  the  incremental  displacement,  —7:  will  depend  on 

x  u6„ 


the  amplitude  of  6  for  <$  >X, . 

f  X  X  i. 

The  question  of  history  dependence  is  circumvented  by  regarding 
X'  as  a  periodic  motion  at  any  frequency  v  of  interest.  The 
matrix  elements  accordingly  would  have  both  real  and  imaginary 
parts  and  may  also  be  dependent  on  both  the  rotor  speed  o>  and  the 
vibration  frequency  \>.  In  effect,  the  dynamic  problems  are 
treated  with  the  frequency  domain  analysis. 


To  avoid  notational  clumsiness,  the  primes  will  be  dropped  from 
F'  and  X'  so  that  F  and  X  are  understood  to  be  dynamic  perturbation 
quantities  unless  the  subscript  "0"  is  used  to  designate  the  static 
equilibrium  condition. 


4.2.3  Speed  Dependence 

For  the  two  most  common  bearing  types,  namely  rolling-element  and 
fluid-film  bearings,  speed  is  an  important  parameter. 

Fluid-film  bearing  forces  are  explicitly  proportional  to  the 
operating  speed.  A  secondary  speed  effect  is  caused  by  the  tempera¬ 
ture  sensitivity  of  lubricant  viscosity.  The  effective  lubricant 
viscosity  usually  decreases  since  a  larger  amount  of  heat  is  generated 
at  higher  speeds. 

The  deflection  of  a  rolling-element  bearing  under  load  is  due  to 
the  contact  compliances  at  both  inner  and  oute**  races.  At  a 
high  operating  speed,  centrifugal  acceleration  of  the  rolling- 
element  increases  the  contact  load  at  the  outer  race  while  the 
contact  with  the  inner  race  is  accordingly  relieved.  Since  the 
load-deflection  characteristics  of  race  contacts  are  highly  non¬ 
linear,  the  stiffness  of  a  rolling-element  bearing  becomes  speed 
dependent . 
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Dynamic  Characterization  of  Bearing  Support 


Accurate  calculation  of  the  lateral  dynamic  response  of  a  high 
speed  rotor  depends  on  realistic  characterization  of  the  support 
bearings.  In  the  most  general  case,  both  lineal  and  angular 
motions  are  restrained  by  the  support  bearings  at  the  attachment 
location.  In  the  analytical  model,  the  reaction  force  and  the 
reaction  moment  of  each  bearing  are  felt  by  the  rotor  through  a 
single  station  of  the  rotor  axis.  As  schematically  illustrated 
below,  a  coil  spring  restraining  the  lateral  displacement  and  a 
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Bearing  Stiffness  Model 

torsion  spring  tending  to  oppose  an  inclination  are  attached  to 
the  same  point  of  the  rotor  axis.  A  complete  description  of  the 
characteristics  of  the  support  bearings,  however,  involves  much 
more  than  the  specification  of  the  two  spring  constants.  This 
is  because: 

•  The  lateral  motion  of  the  rotor  axis  is  associated  with 
two  displacement  components  and  two  inclination  components 

•  The  restraining  characteristics  may  include  cross  coupling 
among  various  displacement/inclination  coordinates. 

'  The  restraining  force/moment  may  not  be  temporally  in 
phase  with  the  displacement/inclination. 

•  The  restraining  characteristics  of  the  bearing  may  be 
dependent  on  either  the  rotor  speed  or  the  frequency  of 
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vibration  or  both. 


*  Bearing  pedestal  compliance  may  not  be  negligible. 

To  accommodate  the  above  considerations,  the  support  bearing 
characteristics  are  described  by  a  four-degrees-of-freedom 
impedance  matrix  as  defined  in  the  equation 


where  is  a  column  vector  containing  elements  which  are  the 

two  lateral  displacements  <S  ,6  and  the  two  lateral  inclinations 

x  y 

s^,  Sy  of  the  rotor  axis  at  the  bearing  station  N. 

Employing  a  right  handed  Cartesian  representation  in  a  lateral 
plane  as  depicted  below,  u 


ROTOR  SPIN 


STATIC  LOAD 


Coordinate  System 

the  z-axis  is  coincident  with  the  spin  vector  of  the  rotor.  The 

x-axis  is  oriented  in  the  direction  of  the  external  static  load, 

and  the  yaxis  is  perpendicular  to  both  z  and  x  axes  forming  the 

the  right  handed  triad  (x,  y,  z) .  o  ,  6  are  respectively  lateral 

x  y 

lineal  displacement  components  of  the  rotor  axis  al'  e  the  x,  y 

directions.  s  ,  s  are  lateral  inclination  components  respectively 
x  y 
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in  the  z-x,  z-y  planes.  Note  that  is  a  rotation  about  the 
y-axis,  while  is  a  rotation  about  the  negative  x-axis. 

ZN  is  a  complex  4X4  matrix,  and,  in  accordance  with  the  common 

notation  for  stiffness  and  damping  coefficients,  may  be  expressed 
as 

In  "  Sn  + 

where  ^  is  the  stiffness  matrix  ,  is  the  damping  matrix,  and 
v  is  the  frequency  of  vibration.  Most  commonly,  lateral  linear 
and  angular  displacements  do  not  interact  with  each  other,  so  that 
the  non-vanishing  portions  of  and  Bj,  are  separate  2X2 
matrices.  That  is 
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Accordingly,  a  total  characterization  of  a  support  bearing 
would  include  sixteen  coefficients  which  make  up  the  4  (2X2) 
matrices: 
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In  the  event  that  the  pedestal  compliance  is  significant,  then 
the  effective  support  impedance  can  be  calculated  from 


(Z,  +  Z  )  ~1 

-b  -p 


?b 


N 


where  subscripts  "p"  and  "b"  refer  to  the  pedestal  and  bearing 

respectively.  Note  that  both  pedestal  inertia  and  damping  may 

be  included  in  Z  . 

=P 

4.2.5  Impedance  Alteration 

From  above  discussions,  it  is  clear  that  an  isotropic  stiffness 
representation  for  a  bearing  support  is  a  gross  simplification. 

A  realistic  description  of  bearing  support  characteristics  should 
include: 

•  speed  dependence, 

•  anisotropy  or  directional  sensitivity  with  respect  to 
the  equilibrium  load, 

•  distinction  of  stiffness  and  damping  elements,  and 
'  cross-coupling  effects. 

It  is,  however,  not  necessary  to  redo  the  analysis  of  a  rotor  because 
the  representation  of  the  bearing  support  needs  refinement.  As 
shown  in  Section  5.3*2,  for  the  appropriate  degrees-of-f reedom 
associated  with  the  bearing  support  in  question,  a  direct  adjust¬ 
ment  of  the  already -computed  impedance  matrix  suffices.  This 
principle  can  be  used  to  add  any  proportional  type  constraint  to 
the  rotor.  Therefore,  one  can  conveniently  evaluate  the 
characteristics  of  the  rotor  system  due  to 

•  varied  bearing  characteristics, 
relocation  of  bearing  support, 

•  electromagnetic  and  aerodynamic  excitations. 
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Natural  Modes 

4.3.1  Conservative  Rotor  System 

If  the  bearing  damping  elements  and  cross  coupling  effects  are 
negligible,  despite  whether  or  not  isotropy  is  preserved,  the 
rotor  system  would  be  conservative.  At  discrete  frequency-speed 
combinations,  self-sustained  oscillations  are  possible.  Such 
conditions  are  determined  as  the  roots  of  the  impedance 
determinant.  Critical  speeds  are  special  cases  of  the  natural 
modes  of  a  conservative  rotor  system;  the  special  conditions 
include  restricting  the  excitation  frequency  to  be  in  synchronism 
with  shaft  rotation  and  the  motion  to  be  in  the  forward  sense  of  whirl. 

4.3.2  Non-Conservative  Rotor  System 

With  realistic  representation  of  fluid-film  bearing  characteristics, 
the  rotor  system  becomes  non-conservative.  The  natural  mode  of  a 
non-conservative  system  can  be  established  in  a  frequency  domain 
analysis  through  the  concept  of  system  damping.  The  mathematical 
analysis  required  to  determine  the  non-conservative  natural  modes 
involves  the  diagonalization  of  the  impedance  matrix,  which  leads 
to  the  formulation  of  a  two-parameter  complex  eigenvalue  problem. 
Details  of  the  analysis  are  given  in  Section  6.2. 

The  non-conservative  natural  mode  analysis  is  required  to  assess 
potential  rotor  instabilities  which  may  stem  from  the  improper  use 
of  fluid  film  bearings  or  the  presence  of  aerodynamic  excitations. 

It  is  also  useful  to  predict  the  maximum  forced  response  conditions 
of  both  synchronous  and  asynchronous  type  and  to  give  an  accurate 
estimate  of  the  amplitudes  involved. 


4.4  Computational  Strategy 

In  a  comprehensive  dynamic  analysi  -  nf  a  rotor  system,  the  required 
computation  procedure  can  be  logically  divided  into  two. steps.  Jbe 
first  step  concerns  the  computation  of  the  mobility  and  impedance 
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matrices  of  the  idealized  structure.  The  second  step  deals  with  the 
determination  of  particular  dynamic  characteristics  of  the  rotor  system 
with  the  option  to  include  realistic  characterization  of  bearing 
supports  as  well  as  various  identifiable  excitation  sources.  Recognition 
of  the  logical  breakdown  of  these  two  steps  made  it  possible  to  devise 
a  strategy  for  the  computational  procedure  which  is  cost  effective  not 
only  in  the  tangible  sense,  but  also  by  providing  flexibility  to  suit 
the  particular  needs  of  the  prevailing  circumstances.  Specifically, 
efficiency  is  realized  by 

*  system  truncation  to  omit  irrelevant  details, 

’  use  of  "real"  frequency  domain  analysis  for  all  problem 
situations, 

judicial  use  of  whirl  coordinates,  and 

•  employment  of  high  accuracy  interpolation  of  smooth  functions  in 
the  frequency  domain. 

These  ideas  are  amplified  separately  below. 


4.4.1  System  Truncation  and  Active  Degrees  of  Freedom 
In  the  analysis  of  the  rotor  structure,  if  the  distributed  inertia 
approach  is  used  for  shaft  segments,  the  mathematical  representation 
is  inherently  truncated.  While  deflection  components  can  be 
identified  at  each  intersegmental  junction,  their  distributions 
along  the  lengths  of  the  segments  are  left  obscure.  For 
instance,  if  idealized  bearing  support  characteristics  are  assumed 
so  that  the  rotor  system  is  conservative,  an  infinite  number  of 
natural  lateral  modes  can  be  computed.  Since  only  a  finite  set 
of  deflection  representations  is  available  to  describe  the  various 
mode  shapes,  the  dimensionality  of  representation  is  insufficient 
and  the  mode  shape  description  is  not  unique.  This  deficiency  is 
not  serious,  because  only  a  finite  number  of  the  lower  modes  are 
of  practical  interest.  By  heuristic  reasoning,  one  may  be 
. onvinced  that  ambiguity  in  truncated  modal  representation  is 
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legitimized  if  the  frequency  domain  is  also  truncated  to  limit 
the  total  number  of  natural  modes. 

This  argument  can  be  extended  one  more  step.  Since  the  range  of 
frequency  domain  of  interest  is  quite  readily  definable,  only  a 
relatively  small  number  of  natural  modes  is  of  interest.  This 
usually  means  that  there  are  more  than  enough  inter-segmental 
junctions  to  satisfy  completeness  in  modal  representation. 

System  truncation  leads  to  considerable  savings  of  computational 
cost  if  the  analysis  effort  goes  beyond  that  for  the  idealized 
rotor  structure.  While  reduction  of  the  dimensionality  of  mode 
shape  representation  may  enhance  computation  economy,  there  are 
explicit  reasons  to  identify  particular  locations  of  the  rotor  and 
the  particular  degree  of  freedom  where  dynamic  interaction  of 
various  type  may  be  of  interest.  Examples  of  active  degrees  of 
freedom  include  the  following: 

Bearing  Stations  —  Isotropic  springs  represent  bearings  in  the 
idealized  rotor  model.  In  order  to  allow  more  realistic 
characterization  of  the  particular  bearing,  identification  of 
the  corresponding  station  is  necessary  so  that  impedance 
alteration  may  be  performed.  This  involves  the  lateral 
lineal  deflections  for  a  radial  bearing  and  the  lateral 
angular  deflection  for  a  thrust  bearing. 

Alternate  Bearing  Stations  —  If  the  need  to  consider 
relocation  of  bearing  support  is  anticipated,  the  alternate 
bearing  stations  should  be  identified  even  though  no  bearing 
constraint  is  assigned  there  in  the  idealized  rotor  model. 

Mass  Unbalance  Station  —  This  is  where  a  mass  unbalance  type  of 
forexug  function  is  assigned  for  study  of  unbalance  response. 

Gears  —  For  rotors  with  gears,  gear  mesh  and  its  harmonic 
excitation  of  both  lateral  and  torsional  vibrations  can 


be  important.  For  a  spur  gear  the  applicable  degrees 
of  freedom  are  lateral  lineal  deflections  and  the 
torsional  twist;  the  lateral  angular  deflections  are 
also  involved  for  a  bevel  gear. 

Impellers  —  Impellers  are  always  potential  locations  for 
mass  unbalance,  there  are  also  possibilities  of  aerodynamic 
cross-coupling  excitation  of  shaft  whirl.  The  latter  problem 
can  be  emulated  by  assigning  equivalent  bearing  coefficients 
at  the  impeller  stations. 

4.4.2  Frequency  Domain  Analysis 

Use  of  frequency  domain  analysis  is  equivalent  to  the  solution  of 
time-dependent  problem  by  the  method  of  Laplace  transformation. 

The  efficacy  of  this  approach  for  conservative  systems  is  widely 
accepted,  no  further  elaboration  is  needed  here.  By  introducing 
the  concept  of  system  damping,  non-conservative  systems  can  also 
be  treated.  Full  details  of  this  method  are  given  in  Section  6.2. 

Both  damped  response  and  stability  analysis  can  be  accordingly 
calculated.  In  the  present  work,  the  frequency  domain  is  confined 
to  the  real  frequency  axis.  Non-conservative  aspects  are  described  in 
terms  of  phase  shift  instead  of  an  exponential  coefficient.  The 
well  accepted  concept  of  critical  damping  ratio  is  suitably  defined. 
Avoidance  of  the  exponential  temporal  behavior  has  obvious 
advantages  in  computational  economy.  An  additional  benefit  is  its 
direct  correspondence  to  practical  measurements.  By  and  large, 
experimental  data  of  rotor  dynamics  pertain  to  steady-state 
oscillatory  phenomena.  Interpretive  ease  is  an  important 
advantage  of  the  frequency  response  analysis. 

4.4.3  Whirl  Coordinates 

In  the  analysis  of  an  idealized  rotor  structure,  use  of  whirl 
coordinates  simplifies  the  description  of  gyroscopic  inertia  and 
associated  computation  effort.  Even  when  non-conservative 
elements  are  incorporated,  it  is  still  advantageous  to  retain  whirl 


coordinates  in  the  computation  process,  so  long  as  isotropy 
prevails.  Verification  of  isotropy  is  performed  automatically 
in  the  computer  program  so  that  the  simplified  computation  procedure 
can  be  utilized  whenever  it  is  permissible. 


44.4  Interpolation  on  Impedance  Matrices 

The  computer  program  allows  the  user  to  specify  frequencies  at 
which  response  calculations  are  desired.  Within  the  specified 
frequency  range,  a  search  is  always  made  to  identify  natural 
modes.  Since  truncated  representation  reduces  the  rank  of  the 
applicable  matrices,  interpolation  from  the  available  matrices 
with  respect  to  frequency  is  likely  to  be  less  costly  than  the 
execution  of  a  complete  calculation  cycle  at  a  new  frequency.  The 
impedance  matrices  are  used  here  because  its  elements  always  have 
smoothly  varying  values.  A  cubic  spline  procedure  was  found  to  be 
ve^y  effective  for  this  purpose.  The  cubic  spline  is  described 
in  Appendix  B. 


SECTION  V 


FLEXIBLE  ROTOR  VIBRATION  ANALYSIS 

This  section  contains  a  description  of  the  analytical  background  in  the 
"structural"  treatment  of  a  flexible  rotor.  The  basic  approach  adopted 
is  patterned  after  Holzer  [17]  and  Myklestad  [18].  The  rotor  is  de¬ 
scribed  in  terms  of  a  number  of  uniform  shaft  segments  which  are  rigidly 
attached  to  each  other  and  share  a  common  geometrical  and  rotational 
axis.  Rigid  body  inertia  elements  can  be  attached  to  stations  between 
the  shaft  segments  or  at  rotor  ends.  Bearing  supports,  which  affect 
lateral  vibration  of  the  rotor,  can  also  be  assigned  to  intersegmental 
stations  or  rotor  ends. 

It  may  also  be  necessary  to  identify  a  rotor  station  for  the  purpose  of 
recognizing  the  presence  of  external  forcing  or  excitation.  Most  com¬ 
monly,  however,  ^uch  a  station  would  coincide  with  the  location  of  a 
rigid  body  inertia  element.  For  instance,  an  aerodynamic  excitation 
would  be  located  at  an  impeller  which  calls  for  a  rigid  body  inertia 
in  the  rotor  model,  Thus,  the  rotor  would  be  described  as  a  succession 
of  M  shaft  segments.  Accordingly,  there  are  M  +  1  rotor  stations  at 
which  rigid  body  inertia  elements,  bearing  supports,  and/or  external 
excitations  may  be  assigned.  Shaft  segment  no.  K  is  enclosed  between 
Stations  no.  K  and  K+l.*  The  last  shaft  segment,  no.  M,  is  terminated 
by  Station  no.  M+l. 

To  allow  flexibility  in  rotor  modeling,  distinction  is  made  between  mass 
and  stiffness  diameters.  Thus,  a  complete  description  of  a  shaft  segment 
includes : 

H  length  of  shaft  segment  (in) 

inner  stiffness  diameter  (in) 

D  outer  stiffness  diameter  (in) 

o 

d^  inner  mass  diameter  (in) 

dQ  outer  mass  diameter  (in) 


*Station  K+l  is  regarded  as  being  to  the  right  of  station  K. 


3 

p  density  of  shaft  material  (lb/in  ) 

E  Young’s  modulus  (psi) 

G  shear  modulus  (psi) 

A  major  departure  from  the  Holzer-Myklestad  treatment  is  the  use  of  distri¬ 
buted  analysis  of  shaft  segments.  Thus  it  is  not  necessary  to  subdivide 
a  slender  and  long  shaft  segment  in  order  to  realize  accuracy  of  higher  modes. 
The  use  of  distributed  analysis  may  not  always  achieve  computational  economy 
since  it  involves  transcendential  functions.  It  is  preferred  because  rotor 
model  input  setup  is  simplified  and  the  results  are  least  sensitive  to  input 
setup.  The  distributed  analysis  makes  it  easier  for  the  user  to  achieve  good 
results  without  extensive  modelling  experience. 

The  analysis  deals  with  small  displacement  periodic  lotions.  The  rotor 
materials  are  assumed  to  obey  linear  elastic  constitutive  laws.  Non¬ 
conservative  effects,  however,  can  be  introduced  at  bearing  support 
stations.  Periodic  time  dependence  is  represented  by  the  exponential 
factor,  eivt.  All  variables  are  allowed  to  assume  complex  values,  with 
the  absolute  value  and  argument  of  the  complex  number  giving  respectively 
the  amplitude  and  the  temporal  phase.  Although  one  cannot  directly 
address  the  problems  of  transient  motions  and  limit  cycle  vibration, 
most  commonly  encountered  rotor  dynamic  problems  can  be  treated.  The 
following  are  state-of-the-art  features  included  to  permit  an  exhaustive 
analysis  of  an  advanced  high  speed  turbo  rotor: 

o  The  vibration  frequency  may  be  different  from  the  rotational 
speed 

o  The  bearing  support  characteristics  can  include  up  to  16 

coefficients,  representing  both  lineal  and  angular  constraints. 

o  The  bearing  coefficients  may  be  dependent  on  both  rotor  speed 
and  vibration  frequency.  Thus,  not  only  can  one  study  a  gas 
bearing  supported  rotor,  it  is  also  possible  to  treat  the 
speed  dependence  of  rolling  element  bearings,  speed-frequency 
dependence  of  tilting-pad  bearings,  and  to  emulate  pedestal 
compliance  and  inertia. 
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0  Forced  response  is  automatically  calculated  at  damped 
resonant  frequencies. 

o  Rotor  system  critical  damping  ratios  can  be  calculated 

within  user  specified  frequency  ranges  at  all  natural  modes. 
When  a  negative  critical  damping  ratio  is  encountered,  a 
self-excited  instability  is  indicated. 

The  analytical  formulation  is  structured  to  minimize  computation  cost 
when  calculations  are  to  be  repeated  many  times  for  the  same  speed- 
frequency  combinations  but  with  variations  of  external  excitations  and 
bearing  support  characteristics.  Two  crucial  steps  make  this  possible. 

o  A  truncated  computation  system  is  reduced  from  the  stations 
of  the  rotor  model.  Only  such  stations,  where  external 
excitations  are  applied  and  where  variations  of  bearing 
support  characteristics  are  desired,  need  be  included  in  the 
truncated  system. 

o  A  nominal  impedance  matrix  is  computed  at  each  speed- 
frequency  combination  by  inverting  the  mobility  matrix 
of  the  truncated  system.  Variation  of  bearing  support 
characteristics  is  achieved  by  altering  specific  elements 
of  the  nominal  impedance  matrix  without  repeating  the 
time-consuming  computation  of  the  rotor  response  from  the 
rotor  model. 

Due  to  the  small  displacement  assumption,  torsional  and  lateral  vibra¬ 
tions  are  uncoupled  (except  that  a  lateral  excitation  may  simultaneously 
exert  a  torsional  moment) . 

In  Sections  5.1  and  5.2,  computation  of  torsional  and  lateral  mobility 
matrices  will  be  separately  treated.  Also  in  Section  5.2,  the  concept 
of  mass  unbalance  as  a  rotating  excitation  is  examined.  In  Section  5.3, 
various  aspects  of  the  system  impedance  matrix  as  they  are  used  in  rotor 
dynamic  studies  are  reviewed. 
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5.1  Torsional  Vibration 


In  a  torsional  vibration  problem,  the  primitive  variables  are  ($,  Mz), 
the  angle  of  twist  and  the  torsional  moment.  <j>  is  a  continuous  function 
and  would  be  sectionally  differentiable  with  respect  to  the  axial 
coordinate  in  each  shaft  segment,  but  the  derivative,  which  is  propor¬ 
tional  to  the  torsional  moment,  may  be  discontinous  across  a  station 
at  which  a  lumped  polar  moment  of  inertia  is  attached. 


According  to  the  theory  of  torsion  of  slender  rods  [l9]. 


M 

2 


=  G  I 

P 


d4> 

dz 


(5.1) 


7T  A  4 

where,  I  =  (D  -  D  ) .  Equation  (5.1)  is  applicable  in  each  shaft 
segment.  Using  matrix  notation,  a  torsional  primitive  vector,  £  may 
be  defined  to  have  (<p ,  M^)  as  its  elements.  For  shaft  segment  no.  K, 
one  can  write  O^z^),  indicating  the  dependence  of  the  primitive  vari¬ 
ables  on  the  local  axial  coordinate  z  .  At  either  end  of  the  shaft  seg- 

K 

ment,  one  can  define 


<V* '  W°>*  *  VW 


~t '  K 


l  is  the  length  of  the  shaft  segment  no.  K. 
1\ 


(5.2) 


5.1.1.  Calculation  at  a  Station 

In  the  analysis  of  torsional  vibration,  the  calculation  at  a 
station  is  mainly  concerned  with  the  d'Alembert  effect  of  a 
lumped  polar  mass  moment  of  inertia.  This  is  described  by  the 
matrix  equation 


t^K  ^tl^K  '  ^^K-L 


(5.1) 


where 
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^tl^K 


r  1 


2t 
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(5.4) 


is  the  polar  mass  moment  of  inertia  at  station 


K. 


5.1.2  Calculation  Along  a  Shaft  Segment 

In  a  shaft  segment,  0  <  z  <  l  ,  torsional  dynamic  equilibrium  is 

K.  K. 

■}iven  by 


dM  2 

JT  "  “V  (PJp/8)K*+  (5-5) 

K 

it  4  4 

where  J  =  ttt  (d  -  d.  )  is  the  cross-sectional  polar  moment  of 
p  32  o  i  2 

inertia  and  g  is  the  gravitational  constant  (386.4  in/sec  ).  Com¬ 
bining  with  Equation  (5.1),  one  obtains 


d  <P  _  _ 
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dz 
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K 


(5.6) 


The  general  solution  of  Equation  (5.6)  is 

4>  -  a  cos  Ykvzk  +  a2  sin  y^vz^ 

Differentiating, 

trv  dfc  *  -al  sin  VZK  +  a2  cos  V21 

K.  K. 

or,  in  matrix  notation,  one  can  write 

£  '  |t(zK)  '  1 

where, 

p  4>  r  cosyKvzK  siny^z, 

-sinyKvzK  cosy^vz. 

•K'  "K 

Also, 

5t  =  gt  ’  £ 


where 


Equation  (5.8)  can  be  inverted  at  z  =  0: 

K. 


-i 


a  =  Sfc  (0)  •  1(0) 


(5.12) 


Substituting  back  into  Equation  (5.8)  and  setting  z„  =  one  obtains 
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Now,  since 


|t  (0)'1  •  ±  (0) 


-  St  •  *<V 

and 

1(0)  = 

one  can  thus  rewrite  Equation  (5.13)  as 


where 


^=t2^K 
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<V  ’ 


(5.13) 


(5.14) 


(5.15) 


5 .1.3  Torsional  Mobili.  y  Matrix 

Combining  Equations  (5.3)  and  (5.14),  one  obtains 

<2Pk  "  <St>K  ■  (2;>k-i 

where 


^=t^K  ^=t2 


=tl^K 


(5.16) 


(5.17) 


(C  )  is  the  torsional  connection  matrix  of  the  primitive  vector 
—  t  K. 

from  the  right  end  of  station  K-l  to  the  right  end  of  segment  K.* 


^Station  K+l  is  regarded  as  being  to  the  right  of  station  K. 
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The  left  free  end  condition  is  given  by 


T  1 


(s;>o  -  ♦] 


(5.18) 


0  j 


Thus  the  homogeneous  solution  for  the  torsional  primitive  vector  at 
the  left  of  station  N  +  1  is 


=  $ 

homogeneous  1 


N 

n 

K=1 


(C  ) 

v=r  N+l-K 


1- 


1-  0  - 


(5.19) 


If  a  unit  torsional  moment  is  applied  at  station  J,  the  corresponding 
particular  solution  for  N  i  J  is 


particular 


-  0  - 

N+i-J 

■  k2i  (=tWl-K 

-  1  - 


(5.20) 


For  the  right  end  of  the  shaft,  on  the  right  of  station  Mi  1,  the 
torsional  primitive  vector  is 


(v 


M+l 


(=tl^M+l 


M 


r1' 


*1  K”1  (=t*M+l-K  | 


M+l-J 

k=i  (St)M+i_K 


L0  J 
-0  1 


:  i 


(5.21) 
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and  for  N  <  J 


(K}n  =  ~K 


(P'22}J 


21 


-l-i 

■  0  i 

N 

1  N+l-J 

n  (  C) 

,  =  t  N+i-K 

'  “  n  ^t^N-U-K 

K=1 

|  K=1 

-  1  . 

(5.24b) 


To  obtain  the  torsional  mobility  matrix,  one  must  first  identify  the 

set  of  active  torsional  stations  S  to  which  J  belongs.  Equations 

t  i 

(5.24)  are  than  used  to  calculate  (Qt)N  which  belong  to  St.  The  vector 
of  (cj>)N  thus  obtained  is  one  column  of  the  torsional  mobility  matrix 
corresponding  to  J. 


5.2  Lateral  Vibration 

The  lateral  vibration  problem  is  more  complicated  in  many  ways: 

o  The  lateral  motion  has  two  degrees  of  freedom,  which  are 
coupled  together  by  gyroscopic  inertia,  fluid-film  bearing 
effects,  and/or  forcing  functions. 

o  It  is  a  fourth  <<rder  system.  Lineal  and  angular  displacements 
are  distinct  aspects  of  the  motion.  Together  with  the 
"internal  forces",  bending  moment  and  shear  force,  they  form 
a  fourth  *-ank  primitive  vector.  "External  force"  may  be 
either  a  lateral  moment  or  a  lateral  force. 

o  Journal  bearing  characteristics  influence  lateral  vibrations 
directly. 


In  the  Cartesian  coordinate  system,  the  lateral  lineal  motion  is  described 
by  (6^,5  ).  (x,y,z)  form  a  right-handed  triad  with  the  rotational  vector 
of  the  shaft  directed  along  the  z-axis.  With  the  small  displacement  approx¬ 
imation,  the  lateral  angular  displacements  are 


V 


d_ 

dz 


(SX,6y) 


(5.25) 
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According  to  the  flexure  theory  of  slender  rods  [20],  the  bending 
moments  and  the  shear  forces  in  the  shaft  segment  are  given  by 


<W  -  Eit^2<5*-y 


(VV  '  E  \  ^3  Wx’V 


where  the  symbols  are  defined  as  follows 


(5.26) 


and  where  1^  is  the  cross-section  transverse  moment  of  inertia 


Xt  =  64 


4  4 

(Do  -Dt) 


(5.27) 


For  years,  it  has  been  known  that  the  flexure  theory  of  slender  rods  can 
be  improved  if  shear  displacement  and  rotary  inertias  are  also  considered 
[2l].  Such  refinements  are  often  proposed  to  improve  calculation  accuracy 
for  higher  flexural  modes.  In  the  study  of  rotor  dynamics,  however,  such 
theoretical  refinements  are  overshadowed  by  our  inability  to  cope  with  the 
true  conditions  at  the  intersegmental  regions.  The  questions  here  are 
concerned  with  three-dimensional  stress  fields  which  are  further  compli¬ 
cated  by  assembly  and  fabrication  details  such  as  shrink-fit,  flange-bolt¬ 
ing,  welding,  brazing,  and/or  key-wavs.  Even  with  the  bpst-  available 
computer  codes  for  three-dimensional  elasticity,  it  is  unlikely  that  these 
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effects  can  be  treated  with  sufficient  precision  to  justify  improvement 
of  the  flexure  analysis  with  shear  displacement  and  rotary  inertias. 

The  potential  importance  of  rotary  inertias,  however,  may  also  present 
itself  in  rigid  body-like  conical  modes.  The  conventional  flexure 
analysis  neglects  the  cross-sectional  rotary  inertias  and  would  thus 
incur  inaccuracy  in  the  computation  of  such  modes.  This  situation  can 
be  remedied  by  adding  one  half  of  the  cross-sectional  rotary  inertias 
of  each  shaft  segment  to  the  intersegmental  inertias  at  either  end  of 
the  shaft  segment. 


As  indicated  previously,  gyroscopic  inertia  would  cause  coupling  between 

(s  ,s  ).  Thus  if  the  Cartesian  coordinate  system  were  to  be  used  to 
x  y 

analyze  the  flexural  vibration  problem,  the  two  sets  ot  fourth  order 
primitive  vectors  would  have  to  be  carried  along  simultaneously. 
Fortunately,  gyroscope  cross-coupling  is  of  the  isotropic  type,  and  by 
employing  forward  and  backward  whirl  coordinates,  diagonalization  of  the 
system  can  be  restored.  A  brief  description  of  the  forward  and  backward 
whirl  coordinate  system  is  given  in  Section  5.2.2,  subsequent  to 
disr.ussion  of  lumped  lateral  inertias  in  Section  5.2.1,  where  the  gyro¬ 
scopic  phenomenon  is  treated. 


The  flexural  primitive  vectors  applicable  to  shaft  segment  K  in  the 
Cartesian  coordinates  are 


<5  1 

•  6  - 

X 

y 

s 

s 

X 

y 

M 

X 

1  Sfy  <ZK) 

M 

y 

V 

.  V 

(5.28) 


Following  the  same  notation  previously  used  in  torsional  vibration 
analysis,  Lhe  flexural  primitive  vectors  at  either  end  of  the  Kth  seg¬ 
ment  may  be  defined  as 
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/ 

- 


~^fx  (zK  "  0)  ’  (^fx*K 


£fx  (ZK  =  V 


^fx*K 

^fy^K  =  £fy  (zK=  0);  (^fy*K  =  ^fy  ^ZK  =  V  (5.29) 

Similarly,  for  individual  elements  of  the  flexural  primitive  vectors,  one 
may  write 

(^x^k  =  (2j(  ~  (^x  =  ^x  ^ZK  =  (5.30) 


etc. 


Lateral  vibrations  are  affected  by  bearing  supports,  the  lineal  and 
angular  stiffnesses  of  which  respectively  cause  discontinuities  in  snear 
forces  and  in  bending  moments.  A  complete  characterization  of  a  bearing 
support  would  include  damping,  cross-coupling,  and  an-isotropy.  These 
aspects  are  deferred  to  Section  5.3.2.  In  the  following  nominal  bearing 
support  effects  are  treated  in  terms  of  isotropic  lineal  and  angular 
stiffnesses  which  are  assigned  at  appropriate  stations. 


5.2.1  Calculations  at  a  Station 
d'Alembert  Effects 

At  a  rotor  station,  a  total  representation  of  rigid  body  inertia 
would  include 


nict  ss ) 


‘V 


axial  offset  of  c.g., 
transverse  mass  momen 
polar  mass  moment  of 


to  the  right  of  the  station. 

t  of  inertia,  J  ;  and 
t  K 

inertia,  J  „ 
ph 


The  location  of  these  inertias  is  shown  in  the  following  sketch. 
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The  polar  mass  meant  o£  Inertia  is  the  same  as  that  used  in  torsional 
vibration  analysis. 


Lineal  dynamic  equilibrium  which  accounts  for  d'Alembert  effects,  at 
station  K  is  satisfied  by 


r(vA ; 


AY 


/ 

(Vk 

l 

(sA 

1  + 

K 

l 

■*Vk. 

<SA 

(5.31) 


d'Alembert 


(5.32) 

The  off-diagonal  elements  of  the  rotary  inertia  matrix  are  gyroscopic 
effects.  Detailed  derivations  are  referred  to  Appendix  A.  They  are 
responsible  for  an  inherent  inertial  coupling  between  the  lateral 
planes  for  a  rotating  shaft  and  cause  complications  in  computation 
if  the  Cartesian  coordinate  system  is  retained  for  the  lateral 
motion. 

Whirl  Coordinates 

The  rotary  inertia  matrix  has  identical  main  diagonal  elements,  while 
its  off-diagonal  elements  have  the  same  magnitude  but  opposite  signs. 
Such  a  matrix  is  isotropic  and  can  be  diagonalized  by  using  whirl  coor¬ 
dinates.  The  transformation  matrix  from  Cartesian  to  whirl  coor¬ 
dinates  is 

■  1  1 

W  =  \  (5.33) 

I  1  -i  J 


such  that  the  lateral  whirl  displacements  are 


(5.34) 
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w  represents  a  forward  circular  whirl  motion  while  w  is  a  backward 
circular  whirl  motion  as  illustrated  below: 


Forward  Whirl 


wj  ("a"  designates  either  a  forward  or  a  backward  whirl  vector)  is 
the  amplitude  of  the  circular  whirl  orbit,  while  Arg  <w-  is  the 
phase  advance  in  the  same  sense  as  the  respective  whirl  motion  rela¬ 
tive  to  the  chosen  time  reference. 


The  same  transformation  applies  also  to  all  other  vectors  in  the 
lateral  plane.  The  inverse  whirl  transformation  is 


W 


,-l 


then  its  representation  in  whirl  coordinates  is 


- 1 

1  I 

1 

-i 

i 

i  ! 

2  Cartesian  coordinate 

-31 

a2' 

-a2 

al 

r*  r\ 

ina lc5  xb 

(5.35) 


A  =  W  •  A  •  W 


-1 


31  ‘  ia2 


al  +  ia2 


(5.36) 
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Applying  this  formula  to  the  rotary  inertia  matrix  in  Eq.  (5,32),  one 
obtains 


',2(Ju +  V2k>  -  “J, 


pK 


v2(Jttc  +  VV  +  “V* 


(5.37) 


One  may  observe  that,  upon  transformation  into  whirl  coordinates,  the 
rotary  inertia  matrix  becomes  simplified  in  two  ways: 

o  off-diagonal  terms  are  eliminated 
o  all  elements  of  the  matrix  are  real. 


Representation  of  the  lateral  motion  in  whirl  coordinates  also 
facilitates  its  kinematic  description.  Any  simple  harmonic  motion  in 
the  lateral  plane  describes  an  elliptical  orbit.  Use  of  Equation  (5.34) 
allows  one  to  characterize  the  elliptical  orbit  by  (w,  w) .  Referring 
to  the  illustration  on  the  next  page,  one  readily  observes: 


R1 

— 

Major  Orbit  Radius  =  1  w  1  +  ••  w  ; 

(5.38) 

R2 

= 

*  i  *  v  i 

Minor  Orbit  Radius  =  ]  w  j  -  1  v»  I 

(5.39) 

Rotational  Sense 

= 

Sg  •  iw  I  -  |  w  ' 

(5.40) 

When  the  orbit  reaches 

its  major  axis,  the  radii  of  the  two 

counter- 

rotating  motions  are  coincident;  therefore 

a  =  Inclination 

of 

the  major  axis 

=  vt  +  Arg 

w 

=  -  jvt  +  Arg  w  ; 

(5.41) 

1  i  . 

- 

V  s 

■  1 

Aig  . w  ,  , 

and  the  polar  angular  coordinate  for  the  temporal  reference,  t  =0,  is 


(5.42) 


Shear  forces  and  bending  moments  at  a  station  are  also  affected  by 
bearing  support  characteristics,  vhich  are  represented  by  isotropic 
lineal  and  angular  springs  here.  Combining  the  effects  of  inertia 
element.s  and  springs,  the  jump  condition  at  station  nunber  K  can  be 
written  in  the  whirl  representation  as 

=  (=fl^K  ‘  ^Pk-1  C5-43) 

where 

-1  0 

(Tfi)K=|  (5.44) 

Lm  i  . 
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-— ’■ - Calculations  Along  a  Shaft  Segment  -  the  Dynamical  Flexure  Solut 

The  Jynamical  flexure  problem,  written  in  whirl  coordinates  without 
rotary  inertias  and  shear  deflection  is  governed  by 


dv_  _  2  pA 

—  -  v  — -  w 

2  1 


(5.45' 


Combining  with  Equations  (5.25  and  5.26),  one  obtains  the  ordinary  dif¬ 
ferential  equation  for 


a4  ** 

(El  )  - — 'd. 

t  K  .  4 

d2k 


v2  (fiA)  ^ 

V  g;K 


(5.46) 


and  its  general  solution  is 


W  ‘  °i  cosh  VK  +  C2  sinh  4K2K  +  C3  cos  5rZK  +  C4  sin  CkZK  (5,47) 


where 


5  =  (v2  -P-A-)4 

r.lTT  / 


(5.48) 


Elements  in  the  flexural  primitive  vector  are  related  to  up-to-the-third- 

order  derivatives  of  w.  Arranging  them  into  a  fourth  rank  column  vector, 
one  can  write 


w  “  |f(zK)  •  C 


(5.49) 


C0Sh  r,KZK  Sinh  r,KZK  C°S  ^KZK  Sin  CKZK 


sinh  <;KzK  cosh  -sin  cos 


cosh  t,  z  sinh  ?  z  -cos  5 z  -sin  c,vz. 


sinh  cKzR  cosh  sin  ?KzR  -cos  5RzKj 


1 

W  I 


1 

dw 

% 

d2K 

1 

d2w 

<R2 

dV 

\  3 
4 K 

,  J  * 

d  w 
.  3 
dzK 

j 

l_  _ 


(5.50) 


The  flexural  primitive  vector  at  the  beginning  of  the  shaft  segment, 
is  related  to  w  (z^  =  0)  through  scale  factors  which  are 
associated  with  (E,  I^,  .  At  the  same  time,  allowance  for  rotary 

inertias  of  one-half  the  shaft  segment  can  be  made  in  a  manner  similar 
to  the  treatment  of  lumped  inertias  at  a  station.  Thus 


«£2>K  •  (2£>K  ■  Sf  •  M°>  •  2 


(5.51) 


-  y  w_y' 


'  -'id&LL 


where 


0 


0 


1 
0  j 


«f2>K  • 


1  Oo 

1  ,V2  - 

I  2  +  vto)  (pJp^K  1  0 


Similarly, 


<EIt>K  0 


°  ?K  <EVk 


(5.52) 


(4'  }K  =  (=f 2)K  '  2*  ■  if  <V  *  C 


(5.53) 


Eliminating  C  between  Equations  (5.51)  and  (5.53),  one  obtains  finally 


(^f  }k  =  [lf2  *  2f  *  2f<y  •  ifCO)-1  •  g^1  •  T  j 


f2jK  ^f'K 


5.2,3  Lateral  Mobility  Matrix 

Combining  Equations  (5.43)  and  (5.54),  one  can  write 

(^f  }K  =  (=f }K  ’  (2f>K-l 


(5.54) 


(5.55) 


■ _ }*  «  VI  ■-«**¥*  •  >.C  **>***<.  a  -i 


where 


If 2  •  2f  •  §£<V  •  M°> 


(5.56) 


which  is  the  flexural  connection  matrix  of  the  primitive  vector  from  the 
left  side  of  station  K  to  the  right  end  of  segment  K  as  written  in  whirl 
coordinates . 


The  left  free  end  condition  is  given  by 


0 


r  oi 

1  i  ! 

i 


(5.57) 


Thus  the  homogeneous  solution  for  the  flexural  primitive  vector  at  the 
left  of  station  number  N+l  is 


(O'  ).,  homogeneous 
N 


N 

=  "  (*Pn+i-k 

K-i 


(5.58) 


If  a  unit  transverse  force  (in  whirl  coordinates)  is  applied  at  station  J, 
the  corresponding  particular  solution  for  H  j  J  is 


particular, 


force  at  J 


N+J-J 

n 

K=i 


N+1-K 


\~  0  1 
0  | 


/  c  cn) 
v-> .  ) 
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According.,  'or  the  right  end,  on  the  right  of  station  M+l,  the  flexural 
primitive  vector  is 


<Sf> 


M+l, 


force  at  J 


f” 

U=i 


(C  ) 

=f 'M+l-R 


w. 


0 
L  0 


One  may  K  ite 


^=fl^M+] 


^flW' 


M+l-J 

+  "  (=f}M+l-K 

K=1 


M 

n  (C  ) 

k=i  -“f  m+i-k 


M+l-J 

Kfx  (=tWl-K 
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(5.60) 


flexure 


.1  flovnro 


(5.61) 


Note,  that  notations  conflicting  with  Equation  (5.22)  are  used  here, 
therefore  annotation  "flexure"  is  used  to  emphasize  the  distinction. 
Since  the  right  end  is  free. 


A31 

A32  . 

. 

j 

W1 

+ 

r - 

H* 

^-flexure 

.  v 

force  at  J  L 

34 


-  0 


flexure 


Or, 


i  31  32 


A  -1 


!B34 


-force  at  J 


■),  flexure 


(■~'.62) 


Substituting  back  into  Equation  (5.58),  for  N<J, 

fr 


<S/> 


N 


f  7N,  force  at  J  “  "  ^^N+l-K 


a3) 

fl3f 

'  B34~ 
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(5.63a) 
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and  for  N?J, 

^N,  force  at  J 


=  ”  K=1  ^f)N+1-K 


31 

A32 

41 

A42j 

flexure 


-J,  flexure 


N+l-J 

+  K»  <£f)S+l-K 


Similarly,  if  a  unit  moment  is  applied  at  J,  then  for  N<J 

A 

(O'  ) 

-M  N,  moment  at  J  r_  i 

fA31  A32] 


(5.63b) 


=  K=l(°f)N+1-K 


.41  ”423 


flexure 


J,  flexure 
(5.64a) 


and  for  N*J 


(^Pn, 


moment  at  J 


Kf1(=f)N+l-K 


'  flexure 


J,  flexure 


N+l-J 

n  'Ci 

-f 'n+1-k 


(5.64b) 
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In  a  flexural  system  each  station  may  provide  either  one  (w  or  9)  or  two 
(w  and  9)  degrees  of  freedom.  Thus,  to  construct  the  flexural  mobility 
matrix,  one  must  first  identify,  S^,  the  set  of  active  flexural  degrees  of 
freedom  to  which  (w  and/or  9)j  belong.  Equations  (5.63  and/or  5.64)  are  then 
used  to  calculate  for  all  N  which  belong  to  S^.  The  array  of  (w  and/or 

G)„  thus  obtained  is  the  column(s)  of  the  flexural  mobility  matrix  corres- 
ponding  to  the  particular  degree  of  freedom  at  J. 

5.2.4  Unbalance  Excitation 

A  common  problem  in  rotor  dynamics  is  the  unbalance  response.  The 

unbalance  problem  arises  when  the  center  of  gravity  of  a  rotor  section  is 

not  coincident  with  the  axis  of  rotation.  One  may  elect  to  describe  the 

situation  in  terms  of  a  mass  moment  at  the  station  K,  (Mfi)  .  The  phenomenon 

K. 

of  mass  unbalance  can  be  understood  by  studying  the  rigid-body  d'Alembert 
effects  of  a  rotor  section  which  contains  the  unbalance  mass  moment.  The 
chosen  coordinate  system  (x*,  y*  ,  /.' )  is  fixed  to  the  rotor  section  with  the 
x'-axis  passing  through  both  the  cross-sectional  reference  center,  which 
is  the  intersection  of  the  cross-section  with  the  nominal  rotor  axis  under 
a  reference  static  condition,  and  the  mass  center. 
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The  instantaneous  position  vector  of  the  mass  center  can  be  expressed 
according  to  the  parallelogram  lav  as  the  sum  of  the  position  vector 
pointing  to  the  origin  of  the  body  fixed  coordinate  system  and  the 
relative  position  vector  of  the  mass  center  in  the  body-fixed  coordinate 
system;  thus 

R  =  ;>0  +  5  R '  (5.65) 

measures  the  shift  of  the  mass  center  from  the  cross-sectional 
K, 

reference  center 


where , 


^0  =  *1  X1  +  *2  X2  +  *3  X3 


Sr'  =  i1'  6r  (5.66) 

-V  ^  "V  ^  ^  »► 

(i^  ,  ,  i^  )  are  body-fixed  unit  vectors  while  (i^,  i^,  i^)  are  earth- 

bound  stationary  unit  vectors.  (x,y,z)  are  components  oi  the  instantaneous 
displacement  of  the  rotor  axis.  These  two  sets  of  unit  triads  are  linearly 
related  to  each  other  through  three  successive  rotational  transformations 
(translational  transformation  has  already  been  included  in  R^) .  In  matrix 
notation, 


(5.67) 


where 


(5.68) 
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'l"°“1  d:fl“ti0nS>  '6"t)  °re  «8“a«>  «•  infinitesimal  angles 

,  'r  Vat  V6S  °f  1  Ca"  “  exprcssed  ln  terms  o£  time-derivatives  of 
y<t>  ity)  i  that  is 


.  >  * 
i_=(v*|:0  +  |.$.Q+iji 


where 


|  '  Q)  •  t 


(5.71) 


f  ®  -sir.S  cos6  e 
0  -cosQ  -sin0- 


[  -sirup 


4-0 


j  -sirup  cosij; 
1  =  I  ~cosip  -sini|) 


Equation  (5.67)  can  be  inverted: 


(5.72) 


i  =  0"1  •  <p~*  .  .  ■t, 

Substituting  into  Equation  (5.71),  one  obtains 


(5.73) 


E 


where, 


Q  cost  cost  +  sint 

•  • 

-9  cost  sint  +  t  cost 

9  sint  +  t 


(5.75) 


where, 


0  -w'2 


0  u)|  + 


w2 


r  22 

-u>2  w|o)2 


,  ,  ,2  ,2 


0)^0)^ 


,2  ,2 

-«!  -w2  1 


(5.76) 


o)^  =  9  cos<(>  cost  +  t  sint  -  94)  sint  cost  +  tt  cost  -  t9  cost  sint 
w,,  =  ~9  cost  sint  t  tcost  +  9t  sint  sint  "  tt  sint  ~  t9  cost  cost 


w*  =  9  sint  +  t  +  ®t  cost 


(5.77) 


If  flexural  displacements  are  small,  (9,t)  are  regarded  to  be  infinitesimal. 
Then  Equations  (5.75)  are  reduced  to: 


;  9  cost  +  t  sint 

0^2  ~  “9  sint  +  t  cost 


“3  =  * 


(5.78) 


Accordingly,  neglecting  second  order  infinitesimal  terms, 
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“3 
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,  2  ,  , 
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0 

-,03“i 

(o  ^  ^  9 

J 

(5.79) 


and 


<j)|  ;  9  cosi^  +  (|>  sin\J>  +  44cos>j 

(^2  '  -9  sin>j>  +  4>  cos’li  -  spGcosv  (5.80) 


The  d'Alembert  force  can  thus  be  obtained  by  taking  the  second  time 
derivatives  of  Equations  (5.65)  and  (5.66): 


-  MR  =  -  M(R  +  V,R' ) 

o 


And,  making  use  of  Equations  (5.79)  and  (5.80), 

-  MR  =  -  MRq  -  (>J>)2  +  ^  sirnl'  "  ‘t’  cos() 

+  2i{i0cos<!>  +  2ii»cf>sini^ ) }  (5.81) 

In  an  ideal  situation,  all  sections  of  the  rotor  would  be  perfectly 

balanced  so  that  6.  =0.  Furthermore,  in  the  absence  of  other  forms  of 

k  . 

vibrational  excitation,  (|Kq|,  9,  )  =  0  and  tp  =  w  =  constant  is  the 

rotational  angular  speed.  The  dominant  effect  of  the  unbalance  response 
problem  is  measured  by  the  magnitude  Md^w  .  Constancy  of  tjj  would  be 
perturbed  by  rotor  acceleration  and/or  torsional  vibration.  Ordinarily, 
both  are  secondary  effects.  The  rate  of  angular  acceleration  usually  is 
small  in  comparison  with  the  rate  of  rotation  and  the  torsional  twist  is 
generally  a  small  quantity.  Thus,  one  may  write  =  u>  +  5ip ,  dij>  being 
the  "rotational  rate  perturbation",  f 6^/ ,  6 9 , 6 c(> )  are  regarded  as  first  order 

perturbations.  Equation  (5.81)  can  thus  be  reduced  to 

-  Hi  -  MR  +  t»  Md,  m2  (5.82) 

oik 
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IJ  > 

Rq  is  the  d'Alembert  force  which  is  already  included  in  the  lateral 

vibration  analysis.  Since  i'  is  fixed  with  the  rotor  cross  section, 

-y  2  1 

A(6^  ij  represents  the  unbalance  excitation  in  the  form  of  a  centrifu¬ 
gal  force,  which  has  a  constant  amplitude  and  is  revolving  synchronously. 
Thus,  one  may  conveniently  use  the  whirl  coordinate  system  as  described 

in  Section  5.2. L.  The  unbalance  excitation  would  be  represented  by  the 
2 

constant  to  as  a  forward  whirling  force.  If  unbalances  at  different 

axial  locations  are  in  various  radial  planes, a  complex  number  would  be 
used;  the  amplitude  would  be  the  magnitude  of  the  centrifugal,  force,  and 
the  argument  would  indicate  the  angular  orientation  of  the  unbalance 
measured  from  a  suitable  reference  in  the  same  sense  as  the  rotation 
vector.  One  may  observe  from  Equation  (5.81)  that  acceleration  of  the 
rotor,  (<-^2  t p) ,  would  appear  as  a  lag  component  as  illustrated  below. 


With  acceleration,  the  apparent  phase  angle  is 

-tan  1  (-^) 

u 

and  the  apparent  amplitude  is  enlarged  by  the  factor 
"2  4  1/2  o 

{(*r  +  u>}  /</ 


(5.33) 


(5.84) 
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When  processing  unbalance  response  data  during  acceleration  or  deceleration, 
compensation  for  these  effects  may  be  necessary. 

5.3  Impedance  Matrix 

5.3.1  Combined  Isotropic  Matrices 

In  Section  5.1  it  is  shown  that  a  linear  relationship  exists  between 
the  angle  of  twist  at  station  m,  if  ,  and  an  externally  applied 
torsional  moment  at  station  n,  Mz  n>  at  any  oscillation  frequency  v. 
This  can  be  written  in  the  matrix  notation  as 


i  -  A 


=torsion 


M 
— 2 


(5.85) 


—torsion  3  s9uare  matrix,  the  elements  of  which  may  be  dependent 
on  v.  Since  the  torsional  vibration  problem  concerns  a  conservative 
system,  ^torg^on  is  symmetrical  in  accordance  with  the  classical 
theory  of  mechanics.  £  and  are  column  vectors,  the  elements  of 
which  respectively  designate  the  angles  of  twist  and  applied 
torsional  moments  at  various  stations  of  interest. 


The  analogous  flexure  problem  was  described  in  Section  5.2.  The 
motion  at  each  rotor  station  for  a  flexure  problem  consists  of  four 
degrees  of  freedom.  The  flexure  motion  may  have  components  in  either 
of  two  lateral  orthogonal  planes.  As  shown  in  Section  5.2.1,  due  to 
the  gyroscopic  effect,  it  is  more  convenient  to  use  whirl  coordinates 
to  represent  the  flexural  motion  instead  of  the  more  conventional 
Cartesian  coordinates  associated  with  the  lateral  planes.  For  either 
the  forward  or  the  backward  whirl  component,  the  flexural  motion  at 

A 

station  m  is  described  by  both  a  deflection  w  and  an  inclination, 

m 

Gm  ,  External  flexural  excitation  at  station  n  can  be  similarly 
represented  in  whirl  coordinates  and  consists  of  both  a  lateral  force, 
Fn  and  a  lateral  moment,  Mn  .  The  applicable  matrix  equation  is 


i 

i  ! 


f  1 


W 


A  *  F 

=flexure  — 


(5.86) 
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W,  which  describes  the  flexural  motion,  is  a  column  vector  of  an  even 
rank.  The  upper  and  lower  halves  of  W  respectively  represent  the 
forward  and  backward  whirl  components.  At  each  station,  for  either 
the  forward  or  the  backward  whirl  component,  the  deflection  and  the 
inclination  make  up  a  pair  of  elements  of  the  W  vector.  Thus  the 

*  v 

>  V 

contents  of  W  are  (w^,  8^,  w^,  •••)•  F  is  a  column  vector 

describing  the  flexural  excitations.  The  elements  of  F  are  the  lateral 
force  and  moment  of  either  whirl  component.  Since  the  rotor  structure 
is  symmetrical  and  bearing  supports  are  approximated  by  isotropic 
springs,  the  forward  and  backward  whirl  motions  are  uncoupled.  Thus, 


=flexure 


is  empty  in  the  off-diagonal  half  partitions  and  can  be 


expressed  as 


=flexure 


(5.87) 


A  and  A  are  of  half  rank.  Since  the  flexure  problem  (with  bearing 
““  / 
supports  approximated  by  isotropic  springs)  is  also  conservative,  A 

v 

and. A  are  both  symmetrical.  £  and  W  can  be  put  together  to  form  a 
generalized  displacement  vector  x>  and  correspondingly,  and  F 
would  be  put  coge'-her  to  form  the  generalized  force  vector  P. 

If  and  W  contain  only  elements  which  are  identified  with  stations-  of 
the  rotor,  then  Equations  (5.85)  and  (5.86)  are  actually  truncated 
representations  of  the  physical  system  as  computed  by  the  procedures 
outlined  in  Sections  5.1  and  5.2.  Suppose  there  are  N  shaft  segments, 
then  there  are  N+I  stations.  The  rank  of  <£_  is  N+l  while  that  of  W  is 
4 (N+l).  Due  to  the  distributed  method  of  analysis  of  the  shaft 
segments,  the  number  of  free  modes  which  can  be  calculated  accurately 
is  unlimited.  In  contrast,  with  a  lumped  parameter  analysis  [22] ,  mass 
effects  are  assigned  as  rigid  bodies  at  the  stations  while  shaft 
segments  are  regarded  as  massless  torsion/flexure  springs;  accordingly, 
one  can  only  calculate  N+l  torsional  modes  and  4 (N+l)  flexural  inodes. 
Actually,  the  accuracy  of  the  higher  modes  as  computed  by  the  latter 
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method  is  questionable;  one  ordinarily  would  accept  only  about  the 
lower  1/3  inodes  as  accurately  calculated. 


i 

4 

I 


I 

U 

!  5 

5 


Truncation  can  be  carried  out  further  by  omitting  some  stations 
altogether,  and/or  by  leaving  out  one  of  the  two  flexure  motion 
parameters  (deflection  and  inclination) ,  and/or  by  disregarding  the 
backward  whirl  motion  if  the  rotor  system  is  known  to  be  isotropic 
while  the  excitation  is  a  pure  forward  whirl  (e.g.,  unbalance).  In 

addition,  torsional  and  flexural  problems  are  usually  separately  i 

i 

treated.  For  example,  suppose  there  are  10  rotor  stations  but  only  ; 

the  following  degrees  of  freedom  are  considered  to  be  active,  , 


Active  Station  Number 


Torsion 

2,9 

Deflection 

1,2,6 

Inclination 

2,9 

i 


The  total  rank  of  this  formulation  is  reduced  to  12  from  the  maximum 
possible  rank  of  50.  The  major  motivation  for  rank  reduction  by 
truncation  is  to  achieve  computation  economy.  One  should  retain  only 
sufficient  active  stations  and/or  degrees  of  freedom  in  order  to 
describe  the  mode  shapes  in  sufficient  detail  and  to  allow  considera¬ 
tion  of  various  engineering  considerations  such  as: 

Balancing  corrections, 

•  Bearing  support  variations, 

•  Bearing  relocations, 

Aerodynamic  excitation, 

•  Wheel  shroud  rubbing,  and 
Reared  coupling  of  rotors. 

Regardless  of  the  extent  of  truncation,  a  conservative  isotropic  rotor 
system  can  be  represented  by  the  combined  matrix  equation 


X  =  A  •  P 


(5.89) 


where , 


X  =  W 


P  =  F 


rs .90) 


And  the  A  matrix  (commonly  known  as  influence  or  mobility  matrix)  is 
quasi-diagonal;  that  is. 


A  =  0 


A.  ,  0  O' 

=torsion  -  = 


(5.91) 


A  ,  A  and  A  are  all  symmetrical.  Upon  inversion,  one  obtains 
=tors  =  — 


P  =  K  •  i 


(5.92) 
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(5.93) 


^  ;  K  =  A  ;  K  =  A 

=torsion  =  =  —  = 

K  is  known  as  the  stiffness  or  impedance  matrix. 

5,3.2  Study  of  Bearing  Effects  -  Impedance  Alteration 

Representation  of  a  bearing  support  by  an  isotropic  spring,  together 
with  the  use  of  whirl  coordinates,  allows  considerable  simplification 
in  the  computation  of  Af].exure  and  Its  inversion  to  obtain  ]^exure  *-n 
two  ways: 

•  All  elements  of  A—  are  real. 

=flexure 

*  Aflexure  is  empty  in  its  off-diagonal  half  partitions. 

However,  fluid  film  bearings,  which  are  in  increasing  use  in  modern 
rotating  machines,  are  commonly  described  by  eight  coefficients*. 

Thus,  in  Cartesian  coordinates,  reactions  of  a  fluid  film  bearing  to 
lateral  displacements  are  expressed  as 


r„ 


yJbrS 
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(5.94)  1 
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■a 

The  equation  governing  fluid  film  journal  bearings  is  self-adjoint  with 

respect  to  squeeze-film  motion.  Therefore,  B  =  B  generally  holds. 

xy  y A 
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Upon  transforming  to  whirl  coordinates  according  to  the  procedure 
outlined  in  Section  5.2.1,  this  becomes 


^  _ 

F 

V 

T  — 

Z,f  -  iZx  AZ  ( j  +  iAZ^ 

"w" 

•w 

_F  . 
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(5.96) 


If  one  recognizes  that  the  matrix  of  Equation  (5.95)  should  replace  the 
stiffness  coefficients  of  an  isotropic  spring,  then  one  can  write,  for 
the  particular  station  in  concern 


F 
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1 

t 

^isotropic 

spring 


:  f 

1  _  | 

zii-k-lzi 
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(5.97) 


Upon  substituting  this  relation  into  Equation  (5.92)  and  regrouping, 
one  finds 


^flexure 


;  K 


L#- 


o  i 

'  I 

K  i 


+  K  , 

=alteration 


(5.98) 
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to  be  the  flexure  impedance  matrix  with  the  actual  bearing  character¬ 
istics. 

If,  for  instance,  such  an  alteration  is  applicable  to  station  2  of 
Equation  (5.88),  then 

£ 

^alteration 


By  such  a  procedure,  the  Influence  of  varying  bearing  characteristics 
can  be  studied  without  repeating  the  computations  described  in  Section 
5.2. 


It  should  be  clear  that  since  the  alteration  procedure  can  subtract 
from  one  station  tl  i  stiffness  which  was  originally  assigned  to  it  in 
computing  the  original  isotropic  mobility  matrix  and  add  some  stiffness 
to  another  station,  so  long  as  both  stations  have  been  identified  as 
active  stations,  one  can  evaluate  the  effects  of  relocating  bearings 
quite  conveniently. 
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— — Scaling  sf  Impedance  Matrix 

Each  diagonal  element  ot  the  impedance  matrrx  is  roughly  the  linear 
combine. i0l,  at  stif hies*,  inertia,  and  damping  effects  associated 
with  the  portion  of  rotor  near  the  junction  represented  by  the 
matrix  element.  In  typical  problems,  the  numerical  value  of  the  matrix 
clement  can  be  quite  large,  it  is  not  uncommon  to  be  in  excess  of 
10  ^  Hie  determinant  of  the  impedance  matrix  .*  then  of  the  order  ol 
(10  )  .  N  being  the  rank  of  the  matrix.  Even  in  a  truncated  repre¬ 
sentation.  several  junctions  would  be  identified  as  active  degrees 
of  freedom;  for  the  lateral  vibration  analysis  of  an  anisotropic- 
rotor  the  ran*  ot  tne  matrix  would  be  twice  the  number  or  active  junc¬ 
tions.  For  instance,  if  four  Junctions  are  active,  N  would  be  eight. 
Thus,  computation  ot  the  determinant  of  the  impedance  matrix,  which 
is  done  repeatedly  in  treating  the  eigenvalue  problems,  very  large 
numbers,  1.  excess  of  1G46,  ere  countered.  This  situation  readily 
causes  difficulty  of  exponent  overflow  in  numerical  computation.  The 
problem  is  proportionally  more  serious  when  higher  modes  are  tteated. 
Rescaling  of  the  impedance  matrix  is  therefore  necessary  to  ensure 
trouble-free  computation.  A  suitable  rescaling  procedure  is  to 
divide  each  element  of  the  impedance  matrix  by  the  sqc-re  of  the 
excitation  frequency  (frequency  is  measured  in  radians/sec  here). 

By  so  doing,  a  diagonal  element  is  converted  to  a  mass  from  inertia. 

Its  range  of  numerical  value  then  becomes  bounded  within  very 
reasonable  limits. 
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SECTION  VI 
EIGENVALUE  PROBLEMS 


6.1  Dlagonalization  of  the  Impedance  Matrix 

Given  the  impedance  matrix  K,  which  may  contain  the  actual  bearing  charac¬ 
teristics,  one  may  pose  the  question  whether  or  not  one  can  find  the 
condition 


X  =  K  X 


(6.1) 


This  equation  indicates  that  premultiplication  of  the  displacement  vector, 
x,  results  in  the  uniform  "complication"  of  all  elements  by  the  same  factor 
< .  It  can  be  rewritten  as 


(K  -  K  I)  '  x  =  0 


(6.2) 


where  I  is  the  identity  matrix.  In  the  last  form,  one  is  confronted  with  a 
linear  homogeneous  system  for  which  the  only  non-trivial  solution  is 


satisfied  bv  the  condition 

Ik  -  «  r!  -  o 


(6.*) 


Only  discrete  values  of  k  =  ^  can  satisfy  Equation  (6.3).  Associated  with 
•»ach  is  the  modal  vector  x^,  which  together  with  satisfies  Equation 
(6,1).  The  homogeneous  nature  of  Equation  (6.2)  makes  the  amplitude  of 
an  indeterminate  quantity.  A  common  normalization  condition  is  to 
equate  the  largest  element  of  to  unity.  Since  K  is  dependent  on  the 
frequency  of  motion,  v,  and  x^  are  thus  also  frequency  dependent.  The 
mathematical  problem  outlined  above  is  known  as  an  eigenvalue  problem. 
Equation  (6.3)  is  the  eigenvalue  or  characteristic  value  equation;  the 
roots  of  which,  <^,  are  the  eigenvalues,  and  x^  are  the  eigenvectors  or 
modal  vectors. 


6.2  Pseudo  Single-Degree-of- Freedom  Concepts 
k  in  general  can  be  a  complex  quantity,  hence  one  can  write 


V"*  “  u«(v)  f  L  Vv) 


(6.4) 


Substituting  Equations  (5.1)  and  (6.4)  into  Equation  (6.2),  one 
obtains 


(u 


+  iv  ) 
or 


x 

-a 


(6.5) 


which  may  be  regarded  as  the  modal  force.  Of  special  interest  is  the 
condition 

ua(va)  -  0  (6.6) 

which  defines  the  natural  frequency  v  at  which  x  could  be  self- 

n  1  a  -a 

sustained  provided  v  (v  )  also  vanishes.  If  v  (v  )  does  not  vanish, 
r  a  a  a  a 

then  its  sign  indicates  whether  would  be  providing  energy  to  the 
rotor  system  if  v^  >  0,  or  would  be  removing  energy  from  the  rotor 
system  if  vq  <  0.  Drawing  analogy  with  a  single-degree-of-freedom 
mass  point  system,  the  above  reasoning  suggests  that  Equation  (6.3) 
may  be  expressed  as 

w  *  |K  -  .c  I|  -  [ka  -  mav2  +  i(vaca  -  vc)  ]  Ha  (v,c)  (6.7) 


m^  may  be  thought  of  as  the  modal  mass,  while  ca  would  be  the  modal 
damping  coefficient.  Extending  the  analogy  one  step  further,  the 
modal  critical  damping  ratio  may  be  defined  as  (6.1): 


c 

6  *  — 
o  2m  v 
a  a 


(6.8) 


Computation  of  (v^,  3^)  is  of  great  importance  since  indicates 
the  frequency  at  which  a  natural  mode  tends  to  oscillate  and  1/6^ 
is  an  indication  of  the  excitability  (amplification  factor)  of  the 
natural  mode.  The  condition  g<Q  signifies  an  unstable  condition 
such  that  would  require  external  dissipative  restraint  in  order 
not  to  become  unbounded  in  amplitude. 

In  the  study  of  rotor  dynamics,  it  is  usually  desirable  to  solve  the 
eigenvalue  problem  within  a  specified  range  of  v.  Since  the  elements 
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of  K  are  smooth  functions  of  v,  it  is  feasible  to  adopt  an  inter¬ 
polation  strategy.  The  isotropic  rotor  problem  would  be  solved  at 
suitable  intervals  of  v  through  the  desired  range.  Since  the  rank 
of  K  is  reduced  to  a  minimum  by  truncation,  an  accurate  interpolation 
scheme  car  be  systematically  implemented  very  economically. 

6.3  Computation  of  the  Conservative  System 

Since  the  rotor  structure  as  modelled  in  Sections  5.1  and  5.2  is  non- 
dissipative,  and  if  the  actual  bearing  characteristics  are  also 
conservative,  then  one  can  expect  c^  ,  *  0  so  that  Equation  (6.7) 

becomes 

W  *  (k  -  m  v2)  H  (v) 
a  a  a 

In  fact,  if  up  to  N  natural  modes  are  of  interest,  then  one  can  write 
N 

W  -  H  (k  -  ma  O  Hn(v)  (6.9) 

a=l  *  1 

It  is  relatively  straightforward  to  determine  the  roots  of  such  an 
equation  by  numerical  interpolation.  However,  for  rotors  of  common 
interest  and  in  engineering  units,  v  would  be  a  relatively  large 
number,  while  m  would  be  a  number  of  moderate  magnitude.  Thus 
Equation  (6.9)  tends  to  behave  like  an  undulating  function  which 
has  an  ever-increasing  envelope.  Numerical  interpolation  of  such  a 
function  may  not  be  accurate  if  it  is  to  be  performed  over  a  wide 
range  of  v.  It  has  been  determined  through  fairly  extensive  testing 
that  a  cubic  spline  interpolation  procedure  is  quite  satisfactory, 

2 

provided  each  element  of  K  (therefore  k  also)  is  first  divided  by  v 
and  a  uniform  geometric  progression  is  adopted  with  consecutive 
increments  not  to  exceed  10  percent.  The  cubic  spline  interpolation 
algorithm  is  discussed  in  Appendix  B, 

6.4  Computation  of  the  Non-Conservative  System 

If  it  is  not  known  in  advance  that  the  rotor  system  is  conservative, 
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is  an  unknown  quantity.  The  eigenvalue  problem  involves  the  solu¬ 
tion  of 

W(v,  k  -  iv)  -  jK  -  iv  c  I  i 

=  U(v  ,  c  )  +  iV(v  ,  c  ) 
a  a  a’  a 

-  0  (6.10) 

(U,V)  are  required  to  vanish  simultaneously,  yielding  two  conditions 

to  determine  the  values  of  (v  ,  c  ).  This  can  be  done  using  a  two- 

a’  ct 

parameter  Newton  iterative  scheme.  Assuming  that  (v'_  c’)  are  fairlv 

Ct  ct 

good  estimates  for  (va>  c^)  so  that 


6v 


v  -  v* ; 
a  a 


6c 


c  -  c 
a  a 


(6.11) 


are  respectively  small  quantities  in  comparison  to  (y  ,  c  );  then  one 

a  a 

can  approximate  Equation  (6.10)  by  its  Taylor  series  expansion: 


n  -  I* i  x  3U’  .  3U*  , 

0  *  lr  +  6v  -j— r  +  6c  +  •  •  • 

a  a 


„  ,  V  +  5V  {£  +  «v  !£  +  ... 

ct  a 


(6.12) 


The  necessary  improvements  are  found  by  truncating  Equation  (6.12) 
beyond  the  first  order  expansions  and  making  use  of  the  Kramer's  rule: 


'6v]  ( 

i  3U* 

3V' 

3U' 

3V'  “1 

J'i 

L6cJ 

)  3v' 

3  c' 

3  c' 

3v,f 

1  a 

a 

a 

a\ 

1 

where 


U' 

L 


3U' 

3c’ 

U’ 

3V ' 
3c’ 

a 

a 

>j 

rt>  | 

u* 

3U' 

< 

1 

V 

3v '  I 

a 

cu 

(6.13) 


(U',  V')  are  values  of  (U,  V)  at  (v' ,  c'). 

Ct  C X 


In  principle,  the  above  formulae  can  be  used  repeatedly  until  (6v,  6c) 
become  negligibly  small.  In  practice,  a  number  of  algorithmic 
difficulties  must  be  resolved.  They  are  enumerated  as  follows: 
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•  A  logical  procedure  is  needed  to  initiate  the 
iteration  process;  what  should  the  first  values 
of  (v;,  cry  be? 

•  If  (v^,  op  are  not  sufficiently  close  to  (va>  ca)» 
an  excessively  large  value  of  iv  would  be  found 

so  that  the  improved  value  +  dv)  would  be 
outside  the  frequency  range  for  which  K  is 
available;  how  should  the  iteration  process 
continue? 

•  Suppose  one  set  of  (v^,  c^)  has  been  established, 
how  can  one  avoid  repeated  convergence  to  the  same 
set  in  subsequent  iterations? 

•  Since  v  and  c  have  different  units,  how  should 

ct  a  ’ 

c  be  scaled? 
a 


First  Estimates  for  (v1,  c1'' 

_ a*  a 

There  is  no  simple  way  to  estimate  for  the  first  time.  In  fact, 

one  does  not  even  know  whether  or  not  the  system  is  conservative. 
Under  the  circumstances,  c^  *  0  may  be  assumed  for  the  first  time. 
This  has  been  found  satisfactory  even  for  cases  where  the  final 
ultimately  approaches  a  relatively  large  magnitude.  With  such  an 
assumed  c*a,  one  wishes  to  determine  v^  such  that  (U1 ,  V’)  are  both 
as  close  to  null  values  as  possible.  This  is  equivalent  to  seeking 
the  minimum  condition  of  U’2  +  V2;  or 


U* 


au* 

av' 

a 


+  V' 


ill 

K 


0; 


(— )2  + 

r$ 


(ill)2  + 

a 


U* 


i!ul  +  v. 


av 


.2 


av 


,2 


>  o 


within  the  assigned  frequency  range.  This  can  be  readily  accomplished 
with  the  cubic  spline  interpolation  method  which  is  described  in 
Appendix  B. 


It  is  quite  possible  that  U'^  +  V'^ 


does  not  have  a  minimum  in  the 


(6.14) 
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specified  range  of  v,  then  the  geometrical  mean  of  the  extreme  limits 
can  be  used  as  the  first  guess  for 

A  provision  is  made  to  allow  the  user  to  enter  first  estimates  for 
(v;,  c*)  of  his  choice.  This  is  done  by  assigning  the  value  -1  to 
the  parameter  IBEG  in  input  card  14  and  then  using  input  card  17  to 
enter  the  desired  first  estimates. 

Excessive  Sv 

If  the  current  values  of  (v^,  c^l  are  not  sufficiently  close  to  the 

eigenvalue  set,  <$v  would  be  excessively  large  in  magnitude  to  project 

the  improved  beyond  either  extreme  of  the  specified  frequency  range. 

Since  an  extrapolation  scheme  would  not  be  dependable,  it  is  necessary 

to  keep  trial  values  of  within  the  limits  at  all  times,  Thus,  upon 

detecting  the  trend  for  to  pass  beyond  either  limit  while  the  current 

v1  is  not  at  the  same  limit,  6v  is  scaled  down  to  place  v»  at  the  limit 
a  a 

while  fie  is  scaled  down  by  the  same  proportion.  If  the  current  is 
already  at  the  same  limit,  then  the  geometrical  mean  of  the  extreme 

limits  of  v  would  be  used  as  the  next  trial  value  of  while  c!  would 

a  a 

not  be  changed. 

If  the  specified  range  of  v  actually  does  not  contain  an  eigenvalue 
set,  the  above  situation  would  be  cycled  indefinitely.  A  limit  on 
the  maximum  number  of  iterations  is  imposed  to  terminate  the  search. 
Experience  has  indicated  that  a  maximum  limit  of  20  iteration  steps  for 
each  set  of  (va,  ca)  is  satisfactory.  In  most  test  cases,  convergence 
is  reached  in  aoout  six  iterations;  only  very  seldom  it  was  found 
necessary  to  exceed  10  steps. 

If  the  iteration  progression  should  attempt  to  exceed  either  limit 

of  the  frequency  range  repeatedly,  the  value  of  the  iteration  residue 
2  0 

(u1)  +  (V* )  would  accordingly  oscillate.  Such  oscillations  are 

allowed  to  occur  three  times.  When  the  fourth  time  is  detected,  the 
computation  will  be  terminated  and  a  message  is  printed  out  to  indicate 
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the  direction  of  shifting  the  frequency  range  for  a  subsequent  trial,  if  so 
desired,  as  suggested  by  the  iteration  history. 


Computation  of(ma,Sa) 

Upon  satisfying  Equation  (6.10)  by  repeated  iterations  with  the  aid  of  Equation 
(6.13),  (va>  ca)  become  known.  Since  the  iterative  steps  also  involves  the 
computations  of 


3W 

3v 


v  ,  c 
a  a 


3U, 

3v' 


+  1£i 

V  .  c  V  .  c 

a  a  a’  a 


and 


M\  -  ^-u-i  +  i  m 

3c '  3c1  T  1  3c ■ 

y  C  VC  VC 

or  a  a*  a  a*  a 


one  can  subsequently  compute  (ma,  $a). 


If  one  formally  differentiates  Equation  (6.7)  with  respect  to  v  and  c,  It  is  found 

3H 

IS  -  (-2mav  -  ic)  Ha  +  {(ka  -  »av  )  +  i(VaCa  "  *c)} 

3H 

—  >  _ivH  +  {(k  -  m  v2)  +  i(v  c  -  vc) } 

3c  a  a  a  a  a  3c 


Allowing  the  limiting  process  (v-*-\>a,  c-m:  ) 


3W 

3v 


v  ,  C 
a  a 


(-2m  v  '  ic  )  H  (v  ,  c  ) 
a  a  a  a  a  a 


3Mi 

3C1 


V  ,  c 
a  a 


-iv  H  (v  ,  c  ) 
a  a  a  cr 


223 


'•'Vf  ^ 


-  . .  I  -.-  .-»-«-»-..3- - -J^--J-- i-iJJ..-  "^" 


Ha  can  be  eliminated,  yielding 


(3W/3v) 

(3W/3c) 


-  —  -  i(2m  ) 
.  v  v  a 
v  ,  c  ex 
a*  a 


(6.15) 


Therefore 


1  r(3W/3u).| 

“  Im{(3W/3c>}l 


(6.16) 


Re  f (3W/3v) . 
,  ,-  l(3w7Tc)> 

a  T||  r(3W/3v)' 

Im  {mm} 


(6.17) 


v  ,  c 
a  a 


The  real  part  of  Equation  (6.15)  yields  the  redundant  condit'rin 


ca  ‘  vo  S*t'£fjjB$,U  . 


,  C 

a’  a 


since  c  is  directly  calculated  in  the  iterative  process.  Accordingly, 


ca  ■  vaRe  '{wtil1 '  -Ja  •  °a 
o 

V  J 

a  a 


(6.18) 


is  an  indicator  of  the  precision  of  the  numerical  computation  of  the  complex 
derivatives  (3W/3v,  3W/3c), 

Avoidance  of  Previously  Determined  (v^,  c^) 

Equation  f6.7)  can  be  extended  to  include  all  eigenvalue  sets  within  the  fre¬ 
quency  range.  Suppose  N  eigenvalue  sets  are  in  the  range,  then  one  can 
write 
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(6.19) 


N 


W  -  n  {(k  -  a  +  Kvc  -  vc)}H„(v,c) 
,  a  a  ct  a  « 

a*l 


Hn  does  not  vanish  In  the  range  for  any  value  of  a.  Upon  finding  the  first 
set  (k^,  m^,  c^) ,  one  can  divide  out  the  factor 

(kx  -  mjV2)  +  ~  vc) 


to  obtain 


W 


w 


1  2 

(kx  -  ntjV  )  +  i(v1c1  -  vc) 


N 


n  {(ka  -  m^v  )  +  i  (vaca  -  vc)}  'Hn(v,c) 
o"2 


(6.20) 


(Ur  V,)  and  their  derivatives  are  used  in  subsequent  search  for  (v2,  o2) 
The  process  is  repeated  every  time  when  a  new  set  of  (va,  c #)  is  found. 


Scaling  of  c 


The  question  of  scaling  c^  comes  up  when  one  introduces  the  concept  of 
modal  critical  damping  ratio,  Equation  (6-8),  in  which  the  modal  mass  m 
appears.  Actually,  without  an  appropriate  scale  for  c^,  (3U’/3c^,  3V'/3c^) 
which  are  needed  during  the  iterative  search  for  c  ,  cannot  be  computed  by 
finite  difference. 


Fortunately,  these  derivatives  can  be  calculated  by  an  analytical  method.  This 
derivation  is  as  follows: 


3W  “  ,  .  3W _ 

¥c  ‘  \  l“  1  3 (K  -  ivc) 

m=l  mm 


where  h  is  the  rank  of  the  system  ana  where  K  -ivc  is  the  mtn  aiagonal  element 

mm 


of  the  matrix  [K  -  ivcl] .  The  derivative 


aw 


3(K  -ivc) 
mm 


225 


can  be  computed  by  using 


'/  /  ') 


<*—=-  - — - 


=¥? 


two  matrices.  The  first  matr-fv  v  . 

for  tha  mfh  *  ^(l>m*  is  that  formed  by  substituting  unity 

for  the  mth  diagonal  element  in  [K  -  ivcl)  Th*  „  J  7 

•*«  formed  by  substitute  „ro  L  Z^  /,  ’  W  18 
Fro,  these  ^  dlag°Ml  eU"6”t  *"  4  *  !»<*. 


3W _ 

a(Kmm"lvc>  " 


so  that 


APPENDIX  A 


GYROSCOPIC  INERTIA  FOR  SMALL  LATERAL  ANGULAR  OSCILLATIONS 

In  Che  analysis  of  lateral  vibrations  of  a  high  speed  rotor,  gyroscopic 
inertia  must  be  considered  if  the  motion  involves  an  inclination  of  the 
rotor  axis.  The  problem  is  essentially  a  straightforward  application  of 
Euler's  theorem  of  angular  momentum.  However  in  the  conventional 
presentation  of  Euler's  theorem,  the  Euler  angles  are  so  chosen  that  a 
quadratic  combination  of  their  time  derivatives  appear  in  the  angular 
inertia.  Since  the  lateral  inclinations  are  always  small  in  practical 
problems,  it  is  convenient  to  identify  two  of  the  Euler  angles  with  them 
and  hence  the  angular  inertia  can  be  linearly  related  to  the  time  deriva¬ 
tives  of  the  lateral  inclinations. 


The  treatment  to  be  presented  applies  either  to  a  portion  of  a  rotor, 
which  can  be  regarded  as  a  rigid  body  (see  Section  5.2.1),  or  to  an 
infinitesimal  element  of  a  flexible  shaft  segment,  which  is  regarded  as 
a  rigid  disk  (see  Section  5.2.2). 


The  angular  momentum  of  a  rigid  body  is 

H  -  u  *  I  (A-l) 

w  is  the  angular  velocity;  I  is  the  second  order  moment  of  inertia  tensor 
and  is  an  invariant  in  body -fixed  coordinates.  Let  (t|,  *3)  s 

triad  of  unit  Cartesian  base  vectors  attached  to  the  rigid  body  at  its 
mass  center,  then 


1  -  £  (I  6..  -  I..)  tl 

k  mm  kl  kl  1 


Lkl 


an 

element 

of  the  matrix 

_  2 
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Sn 

nS 
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n 

IS 

dM 

Cn 

2 

C 

(A- 2) 


(A-3) 
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dM  is  a  mass  element  of  the  rigid  body.  (£,n,C)  are  coordinates  of  the 
location  of  dM  with  respect  to  the  body  fixed  base  vectors.  6^  is  the 
Kronecker  delta.  The  summation  convention  applies  in  Equation  (A-2) . 
Since  the  origin  coincides  with  the  mass  center,  all  off-diagonal  terms 
of  Equation  (A-3)  vanish.  Thus, 

I  -  1[  i’  q  +  i’  q  q  +  i*  i^  I3  (A-A) 

where,  f  2  2 

q  m  I  (n  +  c  )dM 

/2  2 
(C  +  C  )dM 

1 3  *  J  <€*  +  nSdM  (A-5) 

(If,^)  are  the  two  transverse  moments  of  inertia,  is  the  polar  moment 
of  inertia. 


The  body  fixed  base  vectors  (i.* ,  i',  i’>)  may  be  related  to  a  set  of  ground 
fixed  base  vectors  (i. ,  i9,  i_).  Let  i'  be  coincident  with  the  rotor  axis 
and  i^  be  coincident  with  the  bearing  axis,  (i^,  ig,  i^)  can  he  mapped 
onto  (i^,  i^,  ij)  through  three  successive  rotations  through  the  Euler 
angles  (9,<f>,'i0  as  illustrated  in  Figure  3. 


If  a  rotation  about  through  an  angle  0  is  performed  so  that  is  made  to 
fall  on  is  accordingly  moved  to  In  matrix  notation,  thi3  is 

represented  by 
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The  second  rotion  is  about  through  the  angle  $ 


*2  "*•  Ml  *  i-  0 


cos  $  0  -sin<M 


slnd>  0  cosip 


(A-7) 


Finally,  rotating  about  i^  through  ¥: 


cos0  sin0  0 


i’  %  -  -sin0  cosi l>  0 


(A-8) 


Note  the  (0 , «#>)  are  actually  the  lateral  inclinations  and  would  be  regarded 
as  infinitesimal. 

Time-derivatives  of  the  Euler  angles  contribute  to  the  angular  velocity 
of  the  rigid  body.  Writing 


:  -  i»  +  I*  +  ij 


(A— 9> 


*  0cos<j)  cos0  +  i  slni|> 


*  8cos<f>  sin0  +  0  eosi|> 


oil  *  0  +  0  sin0 


(A-10) 
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Alternatively,  the  angular  velocity  may  be  written  in  terms  of  components 
with  respect  to  the  ground  fixed  base  vectors: 


u>  -  ix  Ul  +  i2  o>2  +  i3  «3 


(A-ll) 


*  0  +  ip  sin$ 


•  • 

o>2  “  4>  cos0  -  ip  cosp  sin0 


o>3  ■  if»  cos$  cos0  +  (>sin0 


(A-12) 


Substituting  Equations  (A-4)  and  (A-9)  into  Equation  (A-l) ,  one  obtains 


H  -  ij  +  i£  w^I2  +  i^  u^I3 


(A-13) 


Differentiating  with  time,  it  is  found  that  the  angular  inertia  is 

4  «  ->*  •  *4  » 

H  -  i|  +  i2  ^2^2  +  i3 


+  coj^  q  +  w»I  i’  +  u^I3  i3 


but.  since 


i|  ■  ^2W3  ”  ^3W2*  ^2  *  ^3^1’  ^3  *  '*'lt02 


therefore, 


->  r  . 


H  "  +  ®2®3  ^I3“I2^J  +  i2  W“2,]C2  +  W3W1  ^Il“I3^J 


+  q  wjl  +  «q»J  <X2-Xi>] 


(A-14) 
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To  obtain  a  ground  fixed  representation,  the  transformations  given  by 
Equations  (A-6),  (A-7),  and  (A-8)  are  applied  in  reverse: 


H  -i. 

{C0S<{> 

[»1 

+  u>'3  (mp3  -  Hp] 

4*  sin<j) 

[«3- 

“i“2  «1  -  V]  1 

**► 
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{cos0 
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+  ^  (HJ  -  mp3)] 

+  sin© 

sind> 

[»!'  *  »3  Wh  -  »2>j 

-sin0  cosij>  -  w-jui^  (I,-^)]} 
+  i^  {cosQcostjj^H^  -  aT(l)2<Xl“T2^]  —  cos0sin<t’[^i  +  wpwpj-Hpl 


+  sin0  f  H"  +  u'  (Hi*  -  <I,)1  • 

*  2  3  1  13  JU 


(A-15) 


l>V  =  cosij/  -  a>2  sini/i;  aj^  *  sini|>  +  cosij/; 


HV  =  cosiJjI^  -  sinijjip  Hj,'  =  mj  sinijjl^  +  a)^  cos^I,; 


•  «  •  •  -  * 

H,  =  costJ>I^  -  ta^  sini/il^ ;  Hj  *  sini^I^  +  cos’!;^; 


H’4  -  wll. 
j  3  3 


(A-16) 


Making  use  of  Equation  (A-10),  various  groups  in  the  above  relations  are 
found  to  be 


HV  +  (wjl3  -  Hp  = 


d  "  d  *  *•«•*  * 

^7  (cos<J)  0)  +  AI  —  (cos<f>  COS200  +  sin2ipd> )  +  lp(^  +  sin<f>0) 


•  •  .  •  n 

-I  sin$0<j>  -  AI  (sind»  cos<|>  sin2i|/0  -  s in<#>  cos2^0<j>) 
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H*2  +  MJ(HJ-wJI3> 


■  1^$  +  AI  ^-(cosi}>3in2ii)8  —  cos2tJ4)  —  I^cosij)^  +  sin$8)0 
+  Iosin<f>cos<J>02  +  AIsin<j>(co8<{icos2^0  +  sin2<{4)0 

®3  ”  UiW2(Il~V 

A  •  •  r  #  O  , •  t 

«  1^  — (ij/  +  sin4>8)  +  AI{sin2i/M  (cos<f)0)  —  <f>*j  —  2cos2iKcos$0)<j>} 

(A-17) 

where  I  *  *5(1.  +  I„)  is  the  mean  transverse  inertia  and  AI  ■  h  (I,  -  I0) 
o  l  t  x  *■ 

is  the  transverse  inertia  differential.  Consolidating  these  expressions, 
one  finds 


H  =  IQ  ^  (cos24>8)  +  AI  -j*jr  £cos<p  £cos2i)>(cos<{>e)  +  sin2ij4j 

+  I3  dt  [sin<^  +  sin^)] 

■f  i  I  -  (cos8$  +  sin8sin<j>  (cos<|>0 )) 
l  o  dt  (  J 

+  AI  j^sin0sin<|>  j  cos2iKcos<J>0)  +  sin2t|4j 
+  cos0  |^3in24'(cosi))0)  —  2i(«J>jj 

- 

-  I3  ^  j^sin6cos(Ji(^  +  sin<j>0)j 

+  i^  fl^  ~~  ^cos0cos<K^  J-  sin<{>0)  j 


+  i  I  — 
3  3  dt 


Io  J^cosGsin<Ji(cos(|)0)  -  sin8<j>j 

+  AI  [sin8  J^sin2iKcos<f>0)  -  cos2<j><J>j_ 

-cos0sin<{>  £ cos  2$ (cos$0 )  +  sin2^$jj 
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(A-18) 


For  a  small  deflection  analysis,  (e,+,f-ut)  ®ay  be  regarded  to  be 
infinitesimal,  «  being  the  shaft  rotation  speed;  then  one  obtains 


APPENDIX  B 


CUBIC  SPLINE  INTERPOLATION 
B.l  Interpolation  Requirements 

Use  of  polynomials  to  perform  curve  fitting  or  interpolation  is  a  common 
practice  in  engineering  work.  In  each  of  the  five  major  modes  of  analysis 
of  flexible  rotor  dynamics,  namely: 

o  critical  speeds, 
o  dampei  unbalance  response, 
o  asynchronous  resonance, 
c  damped  asynchronous  response,  and 
o  stability  analysis, 

an  accurate  interpolation  on  the  determinant  of  the  system  impedance 
matrix  and/or  its  derivatives  is  performed. 

When  seeking  critical  speeds,  rotor  spin  rate  and  vibration  frequency 
are  equal.  The  system  is  conservative  and  isotropic.  Only  the  forward 
whirl  motion  is  of  interest.  The  determinant  of  the  impedance  matrix 
is  real  and  presumably  a  smooth  function  of  frequency.  Critical  speeds 
are  the  roots  of  the  real  determinant.  This  calls  for  a  root  searching 
algorithm.  An  asynchronous  resonance  analysis  seeks  all  the  natural 
frequencies  within  a  frequency  range  of  interest  at  a  fixed  rotor  speed. 
The  impedance  matrix,  again,  has  a  real  and  presumably  a  smoothly  varying 
determinant.  Similarly  as  in  the  critical  speed  analysis,  a  root  search¬ 
ing  algorithm  is  needed. 

When  performing  an  unbalance  response  calculation,  the  frequencies  of 
interest  can  be  specifically  specified.  However,  the  most  interesting 
may  not  be  known  beforehand.  Therefore  it  is  useful  to  locate  first  the 
"damped"  critical  speeds,  then  perform  corresponding  response  calcula¬ 
tions.  A  similar  situation  exists  when  the  damped  asynchronous  response 
problem  is  solved.  The  "damped"  resonance  problem,  either  synchronous 
or  asynchronous,  requires  an  algorithm  for  the  complex  eigenvalue  problem 


£ 

C: 


-v» 


discussed  in  Appendix  A.  The  explicit  parameter  is  directly  related  to 
the  system  damping.  An  implicit  parameter  is  the  "damped"  natural 
frequency.  A  pair  of  these  parameters  is  determined  for  every  natural 
mode  by  requiring  both  the  real  and  the  imaginary  parts  of  the  complex 
determinant  of  the  characteristic  matrix  to  vanish.  The  complex  eigen¬ 
value  problem  is  also  involved  in  the  stability  analysis.  In  the  latter 
case,  a  negative  sign  for  the  system  damping  indicates  an  unstable  mode. 

The  system  damping  can  further  be  expressed  in  terms  of  a  critical  damp¬ 
ing  ratio.  A  numerically  small,  albeit  positive,  critical  damping  ratio 
indicates  a  high  "Q"  or  sensitive  natural  mode.  In  each  of  these  three 
modes  of  analysis,  solution  of  the  complex  eigenvalue  problem  is  a 
central  issue.  The  procedure  for  solving  the  complex  eigenvalue  problem, 
in  turn,  requires  repeated  use  of  an  efficient  numerical  interpolation 
scheme . 

To  understand  the  requirements  of  a  numerical  interpolation  scheme  to  be 
used  in  the  complex  eigenvalue  algorithm,  it  is  useful  to  outline  briefly 
the  major  computation  steps.  The  method  of  computation  is  iterative  in 
character.  It  is  necessary  to  begin  with  an  initial  guess  for  the  two 
parameters,  system  damping  coefficient  and  natural  frequency.  The  system 
damping  coefficient  is  initally  assumed  to  be  zero,  but  one  is  still  left  with 
the  question  of  finding  the  best  smarting  frequency.  Since  both  real  and 
imaginary  parts  of  the  characteristic  determinant  should  vanish  upon  con¬ 
vergence  to  a  solution,  a  positive  minimal  of  the  square  of  its  magnitude 
should  represent  a  suitable  criterion  for  the  starting  frequency.  Two 
specific  computations  are  required: 

o  Since  a  minimum  must  have  a  vanishing  first  derivative,  locate 
roots  of  the  first  derivative. 

.!  Select  that  minimum  which  has  a  positive  second  derivative. 


I  1 
1  ? 
I  I 

!  s 


4 

\ 


Upon  establishing  a  starting  condition,  it  is  necessary  to  determine  the 
"present  error"  and  the  best  "corrections"  to  the  two  parameters  in  order 
to  continue  ♦•he  iterative  process.  These  require  interpolation  of  the 
complex  determinant  and  its  derivatives  at  the  current  value  of  frequency. 

?!6 


The  spline  interpolation  allows  one  to  curve  fit  a  set  of  data  points 
precisely  and  to  maintain  a  certain  degree  of  smoothness.  This 
method  utilizes  an  odd  order  (2n+l)  polynomial  (n^  1)  segmentally 
in  consecutive  intervals,  maintaining  continuity  up  to  the  2n-th  deriva¬ 
tive  at  all  internal  points  while  permitting  n  constraints  at  each  end. 
It  turned  out  that  the  cubic  spline  (n*l)  would  be  the  simplest  form  to 
satisfy  various  requirements  indicated  previously. 


Within  each  interval,  a  cubic  polynomial  allows  the  presence  of  up  to 
two  extrema,  of  which  only  one  may  be  a  minimum.  The  locations  of  these 
extrema  are  explicitly  given  by  the  quadratic  formula.  The  determina¬ 
tion  of  roots  is  somewhat  tedious.  The  procedures  for  these  calculations 
will  be  given  later  following  a  description  for  the  determination  of  the 
polynomial  coefficients  in  each  interval.  A  common  choice  of  the  con¬ 
straint  at  either  end  is  a  vanishing  second  derivative. 


B.3  The  Cubic  Spline 


Suppose  N  data  points,  y 


y(xn)  for  n  *  1  through  N,  are  known.  The 


N-l  intervals.  Ax  ■  x  ~x  for  n  *  1  through  N-l,  do  not  have  to  be 
n  n+1  n 

uniform.  A  cubic  polynomial  applicable  in  the  interval  xn$xSxn+^  is 


where,  (®n>Kn)  are  respectively  first  and  second  derivatives  of  y  at 
while  Ayn  =  y^^-y^.  Differentiating  three  times  successively, 


*y  t  2  (x-x  )  *1  _ 

y"  ■  *r  t1  +  —ET-.  <•»  -  ir>-  -s*  Kn 


n 


Ay„  2(x-xn) 


n 


+  ,&«'*)  I_i_  (6  ^a,  .  „  '; 

4xn  !ixn  (  n  4xn>  Y 


Ax 


n 


r'  o  Ay 

\£  <6n  *  ST>  +  Y 


const 


(B-3) 


(B-4) 


Substituting  x  *  xr+1  into  above,  since  continuity  up  to  the  second 
derivative  is  maintained 


Vi  - 


n+1 


Ay„  Ax 

3(~l)  ~  2  8 - -  K 

n  2  n 


(B-5) 


c  Ay  -8 

K  *  v"  *  ■■?—  /  n  n>  _ 
n+1  y  n+1  Ax  '  Ax  3  "  2  Kn 
n  n 


A  recurrence  relationship  can  be  developed  by  writing 


(B-6) 


<• 

A 


Kn  "  an6n  +  bn;  Kn+1  "  an+l9n+l  +  bn+l 


(B-7) 


Eliminating  (8^,  Kr)  among  above  relationships,  one  obtains 

AX  -l  \  „  £y 

Kn+1  "  (2+  ~fan>  i-KT  (3+4Vn’9„+l  "  ZT  (2+AVn)AT 

n  n  n 

) 

-b  \ 

n( 


(B-8) 
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■  "cM1  1  j-*!  ^  j  ^  l 


Comparing  with  Equation  (B-7),  with  n  replaced  by  n+1,  one  finds 


2(3+Ax  a  ) 
_ n  n _ 

*n+l  ~  Ax  (2+*sAx  a  ) 
n  n  n 


iAy  i 

b  +  ~r~~~  (2+Ax  a  )  "  \ 
n  Ax  n  n'  Ax  i 

n  n*^ 


(B-9) 


(24ijAx  a  ) 
n  n 


These  are  the  recurrence  formulae  for  (a^.b^).  Starting  with  the  condi¬ 
tion  ^  ■  0  such  that  aj  *  b^^  *  0,  Equations  (B-9)  can  be  applied 
repeatedly  to  generate  the  entire  set  of  (a^.b^)  for  n  *  2  through  N. 

Now,  substituting  K  »a6+b  into  Equation  (B-6)  and  solving  for  6  : 

’  n  n  n  n  11 


y  x 

3  — -  -  x  b  -  — K 
x  n  n  2  n+1 

n _ _ 

(3  +  Ax  a  ) 
n  n 


(B-10) 


For  n  *  N,  since  *  0,  therefore 

4ys 

3  ST  -  4xsbs 


(B-ll) 


*v« 


where  upon.  Equation  (B-7)  can  be  used  to  calculate  Kjj,  and  the  process 

can  be  repeated  to  obtain  (0  ,K  )  for  successively  smaller  n. 

n  n 

To  summarize,  the  cubic-spline  curve-fitting  procedure  includes  the 
following: 

1.  Set  (n  *  1;  a  *  b  *0) 

n  n 

2.  Use  Equations  (B-9)  to  obtain  (an+1*bn+i>  repeatedly  until 

(a  ,b  )  are  determined  for  the  entire  set  n  ■  1  through  N. 
n*  n 

3.  Set  (n  -  N,  K^+1  -  0) 

4.  Use  Equation  (B-10)  to  obtain  0n>  If  current  n  is  1,  the 
curve-fitting  procedure  has  completed;  otherwise  continue. 


jsS  -..‘SfdftWfclJ 


The  above  procedure  can  be  used  for  any  n  2  2. 


Upon  completing  the  curve-fitting  calculations,  (6n»^n) 
every  interval  of  n  *  1  through  N.  Within  the  interval, 
formula  and  its  derivatives  are 


K  , 

y  -  y  +  e  (x-x  )  +  -Hx-x  ) 
'n  n  n  2  rr 


!  4  K  +  (0  -  r^)l  (x-x  ) ' 

Ax  I  2  n  Ax  n  Ax  n 

n  l  n  n  J 


f  Ay  s 

y'  -  0  +  K  (x-x  )  -  ~  K  +  — -  (e  -  (: 

3  n  n  n  Ax  2  n  Ax  n  Ax 

n  n  n  - 


y"  **  K  -  — - 
3  n  Ax 


n 


2  Ayn' 

K  +  -T —  (0  -  T —  (x-x  ) 

n  Ax  n  Ax  n 

n  n  - 


e. 


B.4  Determination  of  Stationary  Values 

The  stationary  values  are  found  by  solving  for 
y'  -  0 


or 


x, 

La-X . n 

Ax 

n 


9  60 

Kn 4  Vv  +  sr 

n  l 


2  Ayn  ' 

K  +  (0  -  t  ! 

n  Ax  n  Ax 

n  n  j 


2  Ayn1 

K  +  ~  (0  -  -T —) 

n  Ax  n  Ax 

n  n . 


are  known  for 
the  interpolation 


(B-12) 


(B-13) 


for  a  -  1,  2 


For  an  extreme  value  to  be  within  the  interval,  the  following  constraint 


must  be  satisfied 


x.  \“x 

0  5  -feL._n  <  i_ 

Ax 

n 


(B-14) 


The  righthand  bound  is  left  open  because  may  be  regarded  to  belong 
to  the  next  interval  (except  when  n  ■  N) .  a  is  a  positive  integer  not 
greater  than  2.  The  following  convention  is  adopted: 


Xn  v<  X(l)  *  x(2)  <Xn+l 


(B-15) 


Upon  finding  an  extreme  value,  y"  ■  y"  (x  **  x(a))is  calculated,  x^  is 


a  maximum 

a  minimum  '•  ,  if  y"  .  .  >  ^  0  (B-16) 

I 

an  inflexion  ;  «*  -* 

B.5  Roots  of  the  Cubic  Spline 

The  roots  of  the  cubic  spline  are  sought  in  each  interval.  Again  is 

regarded  as  an  external  point  (except  for  n  =»  N).  In  general,  up  to 
three  roots  are  possible.  The  extreme  values  divide  the  interval  to  up 
to  three  sub-intervals.  Each  sub-interval,  however,  cannot  contain  more 
than  one  root.  Thus  it  is  expedient  to  first  identify  the  sub-intervals 
and  then  to  determine  whether  or  not  a  root  exists  within  each  sub-interval. 

If  the  spline  cubic  vanishes  at  the  starting  point  of  the  sub-interval , 
there  can  be  no  other  root  in  the  same  sub-interval,  and  root-testing 
can  immediately  proceed  to  the  next  sub-interval.  In  the  following,  it 
will  be  presumed  that  the  starting  point  is  not  a  root.  The  existence: 
of  a  root  within  the  sub-interval  is  indicated  by  a  sign  reversal  of  the 
end  points.  When  this  is  ascertained,  the  polynomial  is  calculated  at 
the  midpoint  of  the  sub-interval  and  its  magnitude  is  checked  against 
I  Ay  |  for  convergence.  If  necessary,  further  narrowing  down  of  the 
sub-interval  is  done  by  excluding  the  half  which  is  bounded  by  polynomial 
values  of  the  same  sign.  The  process  is  continued  until  a  convergence  test 
is  passed. 
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memrn  *  auwwwf  nu» 


<  0001  ) 
< 0002) 
t 0003) 

( 0004) 

' 0005) 

< 0006) 

<  0007  ) 

' 0008) 

< 0009) 
•0010) 
<0011) 
<'0012) 

<  0013) 

<  0014  > 

■  0015) 

<  0016) 
< 0017) 

V  0018) 

<0019) 

: 0020) 
< 0021 ) 
< 0022) 

<  0023  ) 

<  0024) 
<0025) 

<  0026) 

<  0027) 

<  0028  ) 

<  0029) 

<  0030) 

<  003  1  ) 

<  0032  ) 
<0033) 
( 0034 ) 

<  0035) 
< 0036) 

<  003  7) 

<  0038) 

<  0039) 

<  0040) 

<  0041  ) 

<  0042) 

<  0043  ) 

<  0044  ) 

<  0045) 

<  0046) 

<  0047  ) 

<  0048) 

<  0049) 

<  0050) 

<  0051  ) 

<  0052) 

<  0053) 

<  0054) 


C  ROTOR  SUBSTRUCTURE  VIBRATION  PROGRAM 

C  *RSVP*  BASIC  VERSION  DECEMBER  31,  !*?4  CHTP 

C  SHAKER  RESEARCH  CORPORATION 

C 

C  SUPPLEMENTARY  OUTPUT  IS  WRITTEN  INTO  I/O  t E V ICE  (10' 

C 

C  VERSION  76.02  JUNE  7,  19?6 

C  MODIFIED  FOR  WPAFB 

C 

C  VERSION  78  05  MAY  18,  1978 

C  FULL  CAPABILITY  WITH  STREAMLINED  I/O 

C 

C  VERSION  79.05  MAY  01,  1979 

C  UPDATED  FOR  UNION  COLLEGE  COURSE 

C 

C  VERSION  79  06  MAY  22,  1979 

C  PARAMETER  'LIST'  REMO'-' ED  FROM  INPUT 

C 

C  VERSION  79.07  SEPTEMBER  25.  1979 

DOUBLE  PRECISION  PEAL  aLGEBPa  VERSION 
C 

C  VERSION  79.08  DECEMBER  1979 

C  TESTED  FOR  SAMPLES  INCLUDED  IN  A I R  FORCE  REPORT 

C 

C  VERSION  79.09  DECEMBER  13,  1979 

C  DIMENSION  ALLOWANCE  INCREASED  TO  ?5  SEGMENTS 

C 

C  VERW10N  79.10  DECEMBEP  20,  1979 

C  DOUBLE  PRECISION  SPECIFICATIONS  PEMOVED 

C 

C+****'**H****++***-)(.ti*+**+*f4.tY*+*’t<e’*t'-’t'*+’t‘+**1'***''*'Y'»  Mt* 

c 

c 

C  FEATURES  TO  BE  INCLUDED  IN  THE  FUTURE: 

C  -.1)  ASSIGN  THE  LAST  STATION  WITH  DEFAULT  KS  =  8 

C  <  2  '  AUTOMATIC  PUNNING  OF  TORSIONAL  VIBRATIONS 

C  E.G.  I RUN=6  FOR  TORSIONAL  RESONANCE 

INTEGER  TITLEU6),  IDENTM  ) 

COMMON,' AWH,'F,FFXS<4,2),F1,FF1,SS 
CO M MON/ A  VI B/ A A5< 8 0,8,4  > 

COM MON/ A  TEST 1/81<  75)  .  62< 75  )  • B3<  75  ). 84 <  75  >, B5<  75  » ,B6<  75) 

COMMON /AT£ST2/UQ< 80,4; 

COMMON /ATEST3/V0<  80, 8), A5C80 ,8,4  ) 

C0MM0N/B5TEP/D5<  4, 2' 

COMMGN/CSTAT/X<  75  ) ,  2  <  7  6  ) 

COMMON/ ACOU/ S4(  4 ) , A6<  4 , 6 ) 

COMMON/ ABRG/S5<  4, 2 ), T5( 4, 2) 

C0MM0N/AHIH/C4<  4) . W4<4  ),P4<  4  ), T4<  4), Y4<4  ) 

COMMON/ AEND/UC  8  0,  2  >,  ZM<  76  >,  ZK<  20  >  ,FFRT 
COM  MON/ B  NODF / M<  76  )  .  Pf 7 6  )  . T<  7 6  )  . V .  76  > 

C0MM0N/VN0DE/PS<76  > 

C0MM0N/VHIN/P4S<4 ) 

COMMON/ AFREfi/FR£Q<  5, 11  ),POC, JFQ<  5  ), IFRE 
COMMON/TORL/TORD<  5, 1 1 ) 
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< 0055) 

<  0056/ 
< 0057) 

<  0058) 
•'  0059) 
( 0060) 

<  0061  ) 
<  0062) 

<  0063) 

<  0064  ) 

<  0065) 

<  0068) 
(  0067) 
<  0068) 

<  0069) 

<  0070) 
(  0071  ) 
< 0072) 

<  0073.’ 
(  0074  ) 
(  0075  ) 

<  0076  ) 
< 0077) 
< 0078) 
( 0079) 
< 0080) 

<  0081  ) 
(  0082  / 

<  0083) 
( 0084) 
( 0085) 
( 0086) 

<  0087) 
l 0088) 
(  0089  ) 

<  0090) 

<  0091  ) 

<  0092) 
i 0093) 
( 0094) 

<  0095) 
( 0096) 
<009?) 
( 0098) 

<  0099) 
(0100) 
<0101) 
<0102) 
(0103) 
<0104) 
<0105) 
(0106) 
<0107) 
<0108) 


C0MMON/IHIN/N1<5),N2<  5  ) 
COMMON.' ANODE /N3<  76  ) 
C0MM0N/ABEND/L1P,L4P1  ,  18,15 
C0MH0N/AINT/N8<  76  >,K8<  76)  .  J8 


COHMQN/CHEADi  /TITLE,  LI  •  L2.-L3.L4,  L5,  LIST/UR/KW  KR 
COMMON/ ASTEP/J4 ,LB ,M5, N5( 4  ) 

COMMON/A INER/TRA< 75/ 

COMHON/PRMS/ I  RUN  I  TYPE, I8RG  10  f AG 
DIMENSION  N4<  *  >,XS$<  4, 2 , 1  I  > , SQQ<  1  1  ) 

DIMENSION  X5<  4, 2  ) ,  Y5<4 , 2  )  ,U5<  4 ,2  )  Q5<  4 , 2  •,  2BRG(  4  > 
DIMENSION  C5<  2,5),  KT0RS<20),  KBENDi  20  ,  uBRC  <  4) 

9998  FORMAT  <  1H  > 

KR  =  5 
KM  *  6 

READ< KR, 8000  )  NCASE , KRUN 
IF<  NCASE  .  EQ  0  )  CO  TO  4321 
READ  < KR , 1000  )  IDENT, TITLE 
1000  FORMAT  ( 20A4  ) 

REhD<  KR  ,  8000  )  LSEC  ,LMAT,LMAS  -LBEA  ,LTYP,LEX  I  ,LPRI 

15*LT YP 

•J  8  3  L£  X I 

L13LSEG 

L2=LMAT 

L3  =LM AS 

L4*0 

L5=LB£A 

LIST  3  1 

IF  <15. EQ  1)  LPRI  3-l 
8000  FORMAT  <  1615  ) 

CALL  HE ADI 
CO  TO  8 


C 

C  INPUT  ERROR  MESSAGES 
C 

2005  '  MR  I TE  <  KW, 1005) 

1005  FORMAT  < 43H  FIRST  SEGMENT  MUST  BE  ASSIGNED  A  MATERIAL  /) 
GOTO  9999 

1  854  WRITE  <  KW, 1007)  N 

1007  FORMAT  <21H  THERE  IS  NO  NODE  NO., 13/) 

GOTO  9999 

12  WRITE  <  KW, 1012) 

1012  FORMAT  <31H  THERE  MUST  BE  MORE  8EARINGCS  )  /) 

GOTO  9999 

14  WRITE  (KW, 1014) 

1014  FORMAT  < 35H  COUPLING  MUST  BE  AN  INTERNAL  NODE  /) 

GOTO  9999 
8  Z<  1  )  *  0 

WRITE  <  KW, 8006  ) 

8006  FORMAT  <//l?H  SHAFT  DIMENSI0NS//8H  SEGMENT , Ti 2, 6HLENGTH , T24, 
+4HI.D.,T35,4H0.D.,T45,6HM.I.D.,T56,6HM.0.D./6H  NO . 

+  5<  1  1H  <  IN)  >/lH  ) 


C 

C  FOR  1=1, LI 
C 


/ 
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<0109) 
<0110) 
<0111) 
<0112) 
<0113) 
<0114) 
<0115) 
<0116) 
<0117) 
<  0118) 
<0119) 
<0120) 
<  0121 ) 
<0122) 
<0123) 
(0124) 
<0125) 
<0126) 
<0127) 
<0128) 
<0129) 
<0130) 
<0131) 
<0132) 
<0133) 
<0134) 
<0135) 
<0136) 
<0137) 
<0138) 
<0139) 
<0140) 
<0141) 
<0142) 
<0143) 
<0144) 
<0145) 
<0146) 
<0147) 
<0148) 
<0149) 
<0150) 
<  0151  ) 
<0152) 
<0153) 
<0154) 
<0155) 
<0156) 
<0157) 
<0158) 
<0159) 
<0160) 
<0161) 
<0162) 


DO  9  L*l,Ll 

RE  AD<  KR  > 8001  )  L0< MULL . X< L >, D 1 , D2 , D3 , D4 

8001  FORMAT  <2I5,?F10.0) 

Z<  L  +  l  )  *  2<L  >*X<L  ) 

C  CALCULATE  SEGMENT  FUNCTIONS  f B t < L  ) , B?< L > , 8 3 ( L  ) - B 4< L  ) , es U  ' 

WRITE  <  KU/  8002  )  L , X< L  ) , D1 , D2 , 03, D 4 

8002  FORMAT  <  15  ,  T  1 0,  5<  F9 . 4, 2X  )  .  F9  4> 

PI  -  02*02 

P2  ■  01*01 
P3  «  P1+P2 
P7  «  P1-P2 
P5  -  04*04 
P6  *  03*03 
BB*P5+P6 
P5  «  P5-P6 
P6*B8*P5 

81 <  L )  «  . 785398 1633975*P7 
82<L>  *  81<L  )*P3/ 1 6 
81 <  L )  *  . 785  398 163 39 75*P5 
A 1  *  P3*P7 

TRA<L  >*B1<  L>/16 .0*BB*X<  L) 

B3<  L  )  •=  P5/A1 
B4<  L)=P6/A1 
B5<  L)»0 . 0 

9  B6< L)»BB*B4< L  ) 

LIP  *  Ll+1 
WRITE  <  KW<  8007  ) 

8007  FORMAT  <16H1SHAFT  MATER  I ALS.V9H  STARTING »T12<  7HDENSITY,  T2i 
♦21HY0UNG  '  S  MOD  SHEAR  M0D/7H  NODE,  T1  0 . 1  1H<  LBS/CIJ- IN  ) , 

♦  T24#5H<P8I),T35»5H<P$I  )/lH  ) 

DO  21  L-l/2 

READ  <  KR , 8 1 1  1 )  NMAT, N,  DO,  E,  G 
8111  FORMAT<  2  15 , 3E  10 .4  ) 

WRITE  <  KW/ 8020  )  N , DO , E , G 
8020  FORMAT  < 15 , 5X , F7 . 4 , 3X, 1 P2E1 1  .  4  ) 

IF  <L .GT  ,1  )  GO  TO  21 

B9  *  DO/386.4 

C  =  89/G 

BB9«B9 

B9  *  B9/E 

D  «  DO 

El  *  E 

G1  «G 

IF  <N .NE  .  1  )  GO  TO  2005 
IF  <L2 . GE . 2 )  GO  TO  21 
GOTO  22 

21  CONTINUE 

22  L  *  2 

DO  25  K  *  1 » L 1 

IF  <K.EQ.1.0R.K.HE.N>  GO  TO  24 
89  *  DO/386.4 
C  *  89/G 
Be  9*89 
B9  *  B9/E 


<0163) 

0-00 

<0164) 

El  -  E 

<0165) 

Gl-G 

(0166) 

IF  <  L  .  EQ  .  L2  )  GO  TO  24 

<0167) 

L  ■  L  +  l 

(0168) 

READ  ( KR / 8 1 1 1  )  NKAT/  N/  00/ E/ G 

<0169) 

WRITE  <  KW*  8020 )  N/DO/E/G 

<0170) 
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B1  <  K )  «  0*8100 

<  0171 ) 

B5<  K)-2*G1*62<K> 

<0172) 

B2(  K )  «  El*82<K> 

<0173) 

TRACK  >«BB9*TRA<K> 

<0174) 

B6<  K  >-0 . 0625*B9*B6<  K ) 

<0175) 

B3<  K )  »  2. 0*( B9*8  3  <  K  ) )  *  *0 .25 

<0176) 

25 

B4 <  K  )  «  SQRTC  C*B4<  K  )  ) 

<  0177) 

IF  0.3. GE. 1 >  GO  TO  30 

<0178) 

H3  -  0 

<0179) 

GOTO  31 

<0180) 

30 

WRITE  ( KW>  8008  ) 

<  0181  ) 

8008 

FORMAT  < 7/1 6 H  LUMPED  I KERT I  AS// 7 H  NODAL/ T  1  1/ 6HWE IGHT, T23 , 

<0132) 

+5HP0L AR / T34/ 5HTRANS/ T46 /2HCG/8H  STATION/ 

<  0183) 

+  T22, 7HINERTI A /T33/7H INERTIA/ T4  4/  7H0FF-SET/ 

(0184) 

♦  /T12/ 4H< LB  )/ T21 / 10H< L8-SQ  I N  ) / T32 / 1 0H< LB -SQ  I N  ) , T45/ 4H< IN  )  > 

<0185) 

DO  26  L-1/L3 

<0186) 

RE A0<  KR  /  8001  >  LO/  N3<  L  >  /  W<  L  )  /  P<  L  >  /  TC  L  ) ,  Y<  L  ) 

(0187) 

N  *  N3<  L  ) 

<0188) 

WRITE  (KW/8002)  N3<  L  >/ W<  L  )/ P<  L  >/ T<  L  )/ Y  (  L  ) 

<0189) 

IF  (N.GT.L1M  )  GO  TO  1854 

<0190) 

26 

CONTINUE 

<0191) 

M3  -  *'3<  1) 

(0192) 

31 

J  3  -  . 

<0193) 

WRITE  UWj  9998  ) 

<0194) 

IF  (L4.EQ.0)  GOTO  29 

<0195) 

DO  28  L-1/L4 

<0196) 

READ<  KR  /  8001  )  LO/ N4<  L  )  /  S4<  L  )  /  C 4<  L  )/  W4<  L  )  , P 4<  L  > /  T4<  L  ) ,  Y4 <  L  ) 

<0197) 

WRITE  (KW/8002)  N4Y  L  >/ W4<  L  >  /  P4<  L  ) ,  T4<  L  >,  Y4  <  L  ) ,  C  4  <  L  >/ S  4<  L  ) 

<0198) 

N  *  N4<  L  ) 

<0199) 

IF  <M  .EQ.l .OR .N .GT ,L1 )  GOTO  14 

<  0200) 

28 

CONTINUE 

<  0201  ) 

29 

L4  P 1  =  L4  +  1 

<  0202) 

C 

<  0203) 

C 

INTEGRATE  STATIC  WEIGHT  EFFECTS 

<0204) 

C 

<  0205) 

DO  40  J-1/L4P1 

<  0206) 

CALL  STACK  < J , L 1 / L 4, N4 , 14 / N 1 / N2  ) 

<  0207 

Ml  =  Ni <  J  ) 

<  0208) 

DO  36  1-1/4 

<  0209) 

36 

U0<  Ml  /  1  )»0 

<  0210) 

M2  -  N2<  J  >♦! 

<0211) 

DO  39  K-M1/M2 

<0212) 

K3  *  K~ J  4 

<  0213) 

IF  <K  .HE  .Ml . OR  K  EQ.l)  GOTO  3? 

<0214) 

DOCK,  1  )  =  U0<  K/ 1 > - W4 < J 4  ) 

<  0215) 

U0<K/2)  =  U0<K,2)  +  W4<J4)*Y4<  J'  > 

<0216) 

P4<  44  )  =  P4<  J  4  )/386 . 4 
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<021?) 

T4< 04  )  *  T4< J4)/386. 4 

<0218) 

37 

IF  < M3 . HE . K3  )  GO  TO  39 

<0219) 

(JOCK,  1)  3  U0<K/1)-W<J3) 

<  0220) 

U0(  K  >  2  )  3  U0<  K/ 2  >  +  W<  03 )*Y<  J  3 ) 

<  0221  ) 

P<  0  3  )  3  P<  03  )/386 . 4 

<0222) 

T<  J 3 )  *  T<  03  )/386 . 4 

<  0223) 

03  3  03+1 

<  0224 ) 

IF  <  L  3  GE  03)  M3  3  N3C03) 

<  0225) 

39 

IF<  K. LT . M2  )  CALL  STAT<  04, K) 

<  0226) 

40 

COHTINUE 

<  022?) 

IF  <  L5 . EQ . Q  >  GOTO  100 

<  0228) 

IF  (LS.LT.2)  GO  TO  12 

<  0229) 

C 

<  0230) 

C 

CALCULATE  STATIC  BEARING  LOADS 

<  0231  ) 

C 

<  0232) 

DO  43  L *  1  /  L5 

<  0233) 

READ  <  KR  /  800  1  )  LO  ,  N5(  L  )  /  D5<  L  ,  1  >/ 0  5<  L,  2  ),  S5<  L,  1 

<  0234) 

+  / T5< L  /  1  )  »  T 5 <  L i 2 ) 

<  0235) 

43 

CONTIHUE 

<  0236) 

DO  75  K* 1 / 2 

<  0237) 

DO  75  K 1 3 1  ;  4 

<0238) 

KK  3  =  KFCN<  4 / K/ K1  ) 

<  0239) 

DO  75  K2=l / 2 

<  0240) 

KK  4  3  KFCN<  2  /  K  / 1<2  ) 

<  C241 ) 

K3  3  K 1  - 2 

<  0242) 

IF  <K2  EQ  K3 )  GO  TO  72 

<  0243) 

P9  3  0 

<0244) 

GO  TO  75 

<  0245) 

72 

P9  3  1 

<  0246) 

75 

A5<  1 ; KK3 . KK4  )  3  P9 

<  024?) 

M3  3  0 

<  0248) 

IF  <L3  EG  0)  GO  TO  61 

<  0249) 

M3  3  N3<  1  ) 

<  0250) 

03  =  i 

<  0251  ) 

61 

L8  3  1 

<  0252) 

M5  3  N5<  L8  ) 

<  0253) 

DO  90  0  3  1  / L4P 1 

<0254) 

CALL  OFCN  <  J / Ml  ) 

<  0255) 

DO  51  Kl=l,8 

<  0256) 

51 

VQ<  Mi  .  K  1  )  =  0 

<025?) 

IF  <0  .EQ  .  1  )  GO  TO  70 

<0258) 

VOCMl/l )  *  - W4<  04  ) 

<  0259) 

V0<  Ml  /  2  )  ••  W4<04  )*Y4<  04  ) 

<  0260) 

ISTEP  3  2 

<0261) 

CALL  STEP  < M2 / ISTEP/ IER  ) 

<  0262) 

IF  (IER . EQ . 1  )  GO  TO  9999 

<0263) 

70 

CALL  HFCN(0/M21/M2) 

<0264) 

WRITE  <KW,  9998) 

<0265) 

DO  90  K0*H1/M2 

<0266) 

K4  3  KO-04 

<0267) 

IF  (M3.HE.K4)  GO  TO  76 

<0268) 

V0( KO / i >  3  V0<  KO/ 1  )-W<  03) 

<0269) 

V0<  KO  /  2  >  3  VQ<K0/2)+W<U3)*Y<33> 

<0270) 

03  3  03+1 

1 


248 


k 


( 02? 1  ) 

IF  <L3.GE.J3  )  M3  *  N3<  J3) 

<  0272) 

76 

IF  <H5  HE.K4)  GO  TO  82 

<  0273 ) 

WRITE  <  KW,  9998  ) 

( 0274) 

00  32  K=l, 2 

< 0275) 

IF  <S5<  LB, K)  . GT  .0  )  GO  TO  32 

<0276) 

WR I TE<  KW , 5000  ) 

<  0277) 

5000 

FORMAT  <  T10,  4QHBRG  STIFFNESS  IS  DEFAULTED  TO  0  1  LB.' IN  ) 

<  0278) 

S5<  L8 , K )  =  0.1 

( 0279) 

32 

CONTINUE 

<0280) 

ISTEP  *  3 

<0281  > 

CALL  STEP  <K0, ISTEP,  IE R  ) 

<0282) 

82 

IF  < KO  GT. M21  )  GO  TO  90 

<  0283) 

ISTEP  *  1 

<0284) 

CALL  STEP  <K0, ISTEP,  IEP  ) 

<  0205) 

90 

CONTINUE 

<0286) 

DO  99  KM  ,  2 

<  0287  > 

K1 1  *  KFCN<  4 , K, 1 > 

<0288) 

K 1 2  *  KFCN<  4 , K, 2  ) 

<0289) 

K21  =  KFCN<2 , K, 1  ) 

<  0290) 

K22  *  KFCN<  2 , K, 2  ) 

<0291) 

K13  »  KFCN( 4 , K, 3 ) 

<  0292) 

Ki 4  =  KFCN<  4 , K , 4  ) 

<  0293) 

P9  =  A5<M2,KU,K21  >*AS<M2,K12,K22  ) 

<  0294) 

P9  =  P9-A5<M2,K11  ,  K22)*A5<M2,Kl2,.  K21  ) 

<  0295) 

C5<  2,  1  )  =  A5 <  M2 ,  K 1 2,  K2  1  )*  V0<  M2  ,  K  1  1  *-A 5<  M 2,  i'  1 1  K21  ;*V0< M2 

<  0296) 

C5< 2,1)  *  C5< 2, 1  )/P9 

<0297) 

P9  *  <A5<M2,Kll  ,K22)*V0<M2,  K12  -  A5<  M2  ,  K 1  2 ,  !'  22  •♦•VO''  M2  <  t  t  1 

<  0298) 

DO  95  L *  1 ,  L4 P  1 

<  0299) 

L6  =  L4+2-L 

<  0300) 

IF  <L  GT  1  )  GO  TO  94 

<0301) 

93 

C5<  1 ,  L6  )  =  P 9 

<  0302  ) 

GOTO  95 

<  0303) 

94 

.11  *  L6-1 

<  0304  ) 

K32  =  KFCH<  3 , K, 2 ) 

<  0305) 

K33  *  KFCH<  3 , K, 3 ) 

<  0306) 

P9  *  A6<  J1 ,K32)*C5<2, 1  )+A6<  J 1 , K33  >*P9 

<  0307) 

GO  TO  93 

<  0308) 

95 

CONTINUE 

<  0309) 

L  =  0 

<  0310) 

DO  99  JM ,  L4P 1 

<0311) 

CALL  JFCN  <  J , Ml  ) 

<0312) 

M2  »  N2<  J  )  +  i 

<0313) 

IF  Oil . GT. 1 >  C5< 2 , J )  *  V0< M 1 , K 1 4  ) 

<0314) 

DO  99  KQ=M  1 , M2 

<0315) 

K 4  *  K0-J4 

<0316) 

IF  <K0 . EQ  1)  GO  TO  71 

<0317) 

97 

IF  <M5  NE  K4  )  GO  TO  99 

<0318) 

X5<  L,  K )  »  D5<L,K)-V0<KQ,K14  ) 

<0319) 

Y5<  L ,  K  )  »  V0<  KO  , K 1  3  ) 

<  0320) 

DO  98  K2M  ,2 

<0321 ) 

KK4  =  KFCN<  2 , K, K2  > 

<0322) 

X3<  L,  K )  =  X5<L,K)-A5(K0,K14, KK4)*C5<K2,J  • 

<0323) 

98 

Y5<  L,  K  >  »  Y5<  L,  K  >*A5< KO  ,  K 1 3  ,  KK 4  ) *C5 T  K2  ,  J  > 

<0324) 

, 

W5< L, K )  =  S5< L, K)*X5<L, K> 

M2' 

■'?•■) 
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<  0325) 

Q5<  L,  K )  ■  T5<  Li K)* Y5<  L  ,  K ) 

(0326) 

71 

IF  <L.EQ.L5>  GO  TO  99 

( 032?) 

L  *  L  +  l 

<0328) 

M5  «  NS<  L  ) 

<  0329) 

GOTO  97 

<  0330) 

99 

CONTINUE 

<0331) 

WRITE  (KW-5001) 

<0332) 

5001 

F0RMAT</93H  BRG  ST  LOCATION  **********  VERT  I  CAL  PLANE********* 

<0333) 

♦  *  **********H0RI20NTAL  PLANE**********/1X,2(5H  NO .  ) , 3X , 4H< I N  )  i 3X , 

<0334) 

+  2<39H  HISALGN6 IN)  LOAD<  LB  >  HOH(IN-LB>>) 

<0339) 

00  41  L*  1 , L3 

<0334) 

N  •  N5<  L  > 

<  0337 ) 

41 

UR  I  TE<  KW  i  9002  )  LiN/2<N)i  <D5(L,K),W5<L,K),Q5<L,K),K»1,2) 

<  0338) 

9002 

FORMAT< 215.F10. 4, 2<F11 . 6, 2F 1 1 . 4/ 2X ) ) 

<0339) 

P9  *  0 

<0340) 

Q  a  0 

<  0341  ) 

00  42  L*  1 , L4P 1 

<  0342) 

M2  *  N2<  L  )*1 

<  0343) 

P9  *  P9-U0( M2 1 1  ) 

<  0344) 

42 

Q  -  Q-U0< M2, 2  ) 

<  0345) 

20  *  2<  L 1  +  1 ) -Q/P9 

<  0346  ) 

WRITE  ( KW, 5002 )  F9/20 

<  0347) 

5002 

F0RMAT< 7T15, 12HT0TAL  WEIGHT, T33, 1H*,1PE11.4,5H  <  LB  >7 

<  0348) 

+  T1 5 , 1 9HL0C AT  I  ON  OF  C.G.  *,E11.4,5H  <IN>) 

<  0349) 

WRITE  <  KW, 5003  )  NCASE 

<  0350) 

5003 

FOR MAT<28H INUMBER  OF  SPEED  GROUPS  *.I5> 

<0351) 

C 

<  0352) 

C 

SETUP  OUTPUT  LOGIC 

< 0353) 

C 

<  0354) 

100 

NTQRS=0 

<  0355) 

N8EN0=0 

<  0356) 

S  =  0 

<  C35 7  ) 

IF  (J8.EQ.0)  GO  TO  120 

<  0358) 

READ  <  KR  ,  8000  )  <  N8<  I  ),  I  =  1 ,  J  8  > 

<  0359) 

READ  (  KR ,  8000  )  <  K  8  <  I  ),  I  =  1  ,  J  8  ) 

<0360) 

DO  112  1*1 , J  8 

<  0361  ) 

K8I  =  K8< I  ) 

< 0362) 

GO  TO  <112,113,115,115,113,113,114,113),  K8I 

(0363) 

113 

NTORS  =  NTOPS+1 

<  0364  ) 

KTORS<  NTORS )  =  N8< I ) 

( 0365) 

GO  TO  <112,112,112,112,115,115,112,114),  K8I 

<  0366) 

1 14 

N8END  =  NBEHO+1 

<  0367) 

KBENO<  NBENO )  =  N8< I ) 

(0368) 

1  15 

N8EN0  =  NBENO+i 

< 0369) 

K8EN0<  HBENO )  =  N8< I ) 

<  0370  ) 

112 

CONTINUE 

<  0371  ) 

120 

CONTINUE 

<  0372) 

IF  < 1 5 . EQ . 2 >  NTORS  =  0 

( 0373) 

URITEUO)  NCASEiNTORS, NBENO 

( 0374 ) 

IF  <15-2  )  101,102, 103 

<  0375) 

101 

WRITE  <  KW, 5007  ) 

( 0376) 

5007 

FORMAT  ( 39H  DYNAMIC  RESPONSE  OF  THE  TORSIONAL  MODE) 

<  0377) 

GO  TO  104 

<  0378) 

102 

WRITE  <  KW, 5008  > 
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<0379) 

5008 

FORMAT! 37N  DYNAMIC  RESPONSE  OP  THE  BENDING 

MODE) 

(0380) 

GO  TO  104 

<0381) 

103 

WR1TE(KW,5009) 

(0382) 

5009 

F0RHAT<  54H  DYNAMIC  RESPONSES  OF  BOTH  TORSIONAL  AND 

<  0383  > 

104 

CONTINUE 

<0384) 

DO  126  I  CASE* 1 <  NCASE 

(0385) 

WRITE  <  KW< 6030 >  ICASE 

<0388) 

6030 

FORMAT  < //// 1 9H  SPEED  GROUP  NUMBER/ 15/) 

<038?) 

READ  (KR  <8000  )  LRUN 

<0388) 

PC  *  ,1047197551197 

<0389) 

PCC  «  6Q*PC 

<0390) 

IF  <LTYP  . EQ . 1 >  LRUN  *  0 

<  0391  ) 

READ<  KR  #  8001  )  1 ?/ I FRE< SPE 1 / SPE2 

<0392) 

IF<  NBEND  GT.  0  >  GO  TO  1203 

<0393) 

17-1 

<0394) 

SPE1-0.0 

<  0395) 

1203 

CONTINUE 

<0398) 

WR I TE< 10)  IDENT, TITLE# I 7, L5 < LI P< KRUN, LRUN 

<039?) 

IF <  I?  GT.l  )  GO  TO  1201 

<0398) 

SRAT*  1 . 0 

<0399) 

GO  TO  1202 

<0400) 

1201 

SRAWSPE2/SPEI  )«■*<  1  ./<  17-1  ) ) 

<0400 

1202 

S0-SPE1/SRAT 

<  0402) 

16*1 

<0403) 

DO  125  J  SPD* 1 / 1  7 

<0404) 

SO«SO*SRAT 

<0405) 

S00<  J  SPD  )«S0 

<  0406) 

CONTINUE 

<  0407) 

IF  < NTORS . GT , 0  >  WRITE  <10>  < KTORS< I >/ I *1 < NTORS > 

<  0408) 

IF  (NBEND. GT  .O)  WRITE  (10)  < KBEND< I  )/ I « 1 / NBEND > 

<  0409) 

IF  (I3.EQ.1)  GO  TO  111 

<0410) 

IF  (L5.EQ.  0)  GO  TO  106 

<0411) 

00  105  L  *1 <  4 

<0412) 

IF  (ICASE.GT. 1 . OR. JSPD . GT .1 )  GO  TO  1050 

<  0413) 

J8RG<  L  >  *  L 

<0414) 

IF  <L .GT  L5>  GO  TO  105 

<0415) 

N  *  N5<  L  ) 

<  0416) 

2BRG<  L  )  *  Z<N> 

<  0417) 

1050 

IF  < I 6 , EQ . 0 . OR . L . G T . L5  )  GO  TO  105 

(0418) 

READ  <  KR / 800 1  )  LO  <  16 < XS< L < 1 > < XS< L < 2 > 

<0419) 

IF(  16 . EQ  .  1  .OR.  L.EQ.L5)  GO  TO  105 

<0420) 

WR I TE<  KW / 8004  ) 

<  0421  ) 

8004 

FORMAT! ///46H  16  MUST  BE  UNITY  EXCEPT  FOR 

THE  LAST 

<0422) 

GO  TO  9999 

<  0423) 

105 

CONTINUE 

<0424) 

WRITE! 10  )  <H5<L  ;/<  XS<L, I >/I*l/2)/L*l/L5) 

<0425) 

IF  (L5.EQ.0)  GO  TO  106 

<  0426) 

DO  106  L  *  1 <  L 5 

<  0427) 

XSS<L/1/JSPD)*XS<L/1  ) 

<  0428) 

XSS<L<2<JSPD  )*XS<  L  <  2  ) 

<  0429) 

106 

CONTINUE 

<  0430) 

SSO  =  PC*SO 

<  0431  ) 

S  *  SO 

<  0432) 

SS  *  SSO 
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<0433) 

(0434) 

<0435) 

108 

(0436) 

109 

(0437) 

(0438) 

110 

(0439) 

111 

(0440) 

(0441) 

(0442) 

(0443) 

(0444) 

(0445) 

1205 

(0446) 

(0447) 

(0448) 

( 0449) 

( 0450) 

(0451) 

1206 

(0452) 

1207 

(0453) 

( 0454) 

( 0455) 

1  101 

( 0456) 

1  103 

( 0457) 

1208 

<  0458) 

( 0459) 

( 0460) 

( 0461) 

<  0462) 

501  1 

( 0463) 

( 0464) 

( 0465) 

( 0466) 

5012 

( 0467) 

( 0468) 

1 104 

( 0469) 

( 0470) 

( 0471 ) 

1111 

( 0472) 

5021 

( 0473) 

( 0474) 

1113 

( 0475) 

5023 

( 0476) 

1115 

(0477) 

5013 

( 0478) 

( 0479) 

( 0480) 

1  17 

( 0481 ) 

5014 

( 0482) 

1209 

( 0483 ) 

125 

<  0484  ) 

<  0485) 

<  0486) 

5004 

If  (L3.EQ.0)  CO  TO  109 

DO  108  L«1,L3 

PS<  L  >  «  P(L>*$S 

IF( L4 .EQ  .O  >  GO  TO  111 

DO  110  L«t,L4 

P4S<L  )»P4(  L)*S$ 

CONTINUE 

If  <  LRUN . EQ . 0 )  GO  TO  1205 

IFRE-1 

JFQ(  1 >«1 

FREQ( 1 , 1 )«S0/6Q .0 
CO  TO  1208 
DO  1103  L*  1 » I FRE 

REND  < KR  < 800 1  )  LQ ,  18 , FREQ  1 , FREQ2 
JFQ( L  >« 18 

IF<  I8.E0.1 )  GO  TO  1208 
FRAT»(FR£Q2/FREQ1  >**(  1  .  /(.  18-1  >  > 

GO  TO  1207 
FRAT-1 .0 
FRQY«FREQ1/FRAT 
DO  1101  Is  1  *  18 
FRQY=FRQY*FRAT 
FREGK  L/  I  )*FRQY 
CONTINUE 
WRITE(IO)  IFRE 
DO  1209  L  = 1 , IFRE 
JFK  =  J  FQ( L ) 

WR I TE(  1 0  )  JFK 

IF  (LRUN. EQ.O)  WR I T£( KW , 501 1  >  L ,  <  FREQ(  1/  I)  <  I  <*  l  /  J  FK  > 

F0RM0T</'27H  EXCITATION  FREQUENCY  GROUP  /  I  5/  5  H  HZ  /  1 1  F  1 0  .  4  > 

I F<  L I  ST  .  EQ  .  2  )  GO  TO  1209 
IF  CLTYP  EQ. 1  >  GO  TO  1104 

IF( JSPD . EQ . 1  . OR .(  L .EQ. 1 .AND . IFRE . GT .  1  )  )WRITE( KW, 5012  > 

FORMAT  C/23H  SPEED  FREQUENCY , 8 X , 1 6HE ND  DETERMINANTS^, 
+  5H(  RPM ) / 7X  ,  4H( HZ  > , 6X  , 28HC0-RQTAT I ONAL  CTR-ROT AT  1 QNUL  / 

CALL  ENDST(S,NTORS,NBEND, JFk,L  ) 

IF  (LRUN ,EQ. 1  )  GO  TO  1209 
IF  (LTYP-2  )  1  1  1  1  /  1  209/  1  1  1  3 
WRITE  (KW/5021) 

FORMAT  <  1H1  ) 

GO  TO  111S 
WRITE  ( KW, 502  3 ) 

FORMAT  </lH  > 

WRITE  <KW,5013) 

FORMAT  (  1 1  H  FREQUENCY, 5X/9HTQRSI  OH  «L/4X/4H<  HZ  1  Si,  -  9  HEN  D  STIFF 
DO  117  I =1 , J  FK 

WRITE  ( KW, 50 1 4  )  F R EQ( L , I > , T ORD(L •  I  > 

CONTINUE 

FORMAT  < 1PD12 .4,015. 6> 

CONTINUE 

CONTINUE 

IF  ( LPR I  .EQ. -1  P  CO  TO  1 108 

WRITE  (  KW,  5004  )  <  J BRG( L  > , L= 1  4  >,<  NS(L  ;l=l  L5'» 

FORMAT  ( //  7H  BRG  NO, 1 1 8 , 3  1 2 4 /7K  STN  NO, 118,3124  ■ 


___  **  vs- 

<0487) 

(0488) 

3005 

(0489) 

(0490) 

5008 

(0491) 

(0492) 

(0493) 

1051 

(0494) 

5010 

( 0495) 

1  108 

( 0496) 

128 

<  0497) 

( 0498) 

4321 

(0499) 

(0500) 

9999 

( 0501 ) 

WRITE  (KW/5003)  <  ZBRC<  L  >/  L*  1  #L5  > 

FORMAT  (9H  LOC  <IH  >/ 1PE 13 . 4 / 3( 1 2X  /  E 12 .4)) 

WRITE  (KW/3008) 

FORMAT  <9H  SPEED/ 3X<  4( 4X  / 3HRAD  >  9X/  3HANG / 5X  )/ 
♦4X/8H(RPH>  /4<3X/21H<LB/IH)  < IH-LB/RAD )  >) 

DO  1051  11*1/17 

WRITE  <  KW  /  50 1 0  >  S00<  II  )/<  <XSS(  L,  I ,  II  ),  1*1 , 2  >,  L«l  .L5> 
FORMAT  ( 1P11E12  .4  ) 

CONTINUE 
CONTINUE 
IF(  KRUN . EQ  .0 
REWIND  10 
CALL  SVOSYN 
CALL  EXIT 
END 


OR  .LIST ,E8 .2 >  GO  TO  9999 
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( 0502) 

<  0503  ) 

( 0504) 

( 0505) 

( 0500 ) 

<  0507) 

<  0508) 

<  0509) 
<0510) 
c  05 1  1  > 

<  0512) 
<0513) 
<0514) 

<  0515) 

<  0510) 

<  0517) 
<0518) 
<0519) 

<  0520) 

<  0521  ) 

<  0522) 
t 0523) 

<  0524) 

<  0525) 

<  0526) 

<  0527) 

< 0528) 

<  0529) 

<  0530) 

<  0531  ) 

<  0532) 

<.  0533  ) 

<  0534) 

<  0535) 

<  0536) 

<  0537) 

<0538)  245 

<  0539) 

<  0540) 

<  0541  ) 

<  0542) 
(0543)  C 

<  0544)  C 

<  0545)  C 

<  0546) 
<0547) 

<  0548) 
(0549) 

<  0550) 

<  0551  ) 

<  0552) 

<  0553) 

(0554)  31 

<  0555) 


SUBROUTINE  ENDST<  S , NTORS, NBEND , JFK, 19  > 

INTEGER  TITLEU6) 

COMMON/ ABH/F , FF , XS<  4 , 2  > » F 1 , FFI  ,  SS 

COMMON/ A V 1 8/ A A5<  80 , 8 , 4  ) 

COMMON/ A  TEST  1 /B I <  75  ) ,  82<  7  5 ) ,  83<  75  >.  B4<  75  >,  B5<  75  ) ,  B6<  75  > 
C0MM0N/AT£ST2/U0< 80, 4  ) 

C0MM0N/BSTEP/05<4, 2) 

COMMON/C  ST AT/ X< 75),Z<?6  > 

COMMON/ AC0U/S4<  4), A6<4, 6) 

C0MM0N/AHIN/C4<4>,«4<4  ),P4<  4  >,  T4<  4  ) ,  Y4<  4  ) 

COMMON/AEND/U< 80, 2  ) , ZM<  76  >, ZK<  20  ) , FFR T  • 

COMMON/ BNODE/W< 76 ) , P< 7 6  ), T<  7 6  ) , Y<  76  , 

COMMON/ VNODE/ PS<  76  > 

COMMON/ VHIN/P4S< 4  ) 

C0MM0N/AFRE0/FREQ<  5,11),PCC,JFQ<5),IFRE 
COMMON/ TORL/ T OR D<  5, 1 1  ) 

C0MM0N/M0/AMAX<4),QC5<  80, 8), QUt 80 ,8,2  ) 

COMMON/ IHIN/N 1( 5 ) , N2< 5  ) 

COMMON/ AN0DE/N3C  76  ) 

COMMON/ A8END/L1P, L4P1,  18,  15 
COMMON/ A INT/N8<  76  ) , K8<  76  ) ,  J 8 

C0MM0N/CHEAD1 /TITLE, Ul , L2 , L3 , L4, L5, LI ST/UR/FU , KR 
C0MM0N/ASTEP/J4,LB,M5,N5<  4) 

COMMON/A INER/TRA< 75) 

DIMENSION  AM<  4, 4), BM<4, 4 ), AMI<  4, 4  >,  m)< 80,8, 2),XD5<  80, 8>,XV<4,2  ) 
DIMENSION  DET< 2  ),  TRA TEC  76  ),  K9<  20  ) 

DIMENSION  B< 1 0 ) , A  I < 4 , 2 , 2 ) , E <  4),P4F<  4), PFCSO  ), VV( 80,2  ) 
EQUIVALENCE  <UU<1 ),VV< 1  )) 

IONE  *  1 
ITWO  *  2 
IFOUR  =  4 

IF  (NBEND.EQ.O)  GO  TO  245 

JMAX  =  4 

CSPD*S/60 

$$*CSPD*PCC 

NEND  =  2+NBEND 

CONTINUE 

DO  1000  1*1, JFK 

F*FREQ< 19, I ) 

FF  *  F*PCC 
F2  -  FF*FF 

CALCULATE  TORSIONAL  RESPONSE 

M8  *  0 
LL8  *  0 
L8  *  1 

IF  (NTORS.GT .0)  8RITE< 10)  F 
IT  <  J  8 , E Q . 0  >  GO  TO  31 
ITORS  *  0 
M8  *  N8<  1  > 

KK8  *  K8< 1  ) 

L81  *  L8 

IF  (I5.EQ.2)  GO  TO  400 
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<0556)  IF<  ITORS.GT.O  )  GO  TO  300 

<055?)  C  ***  INITIALIZE  HOMOGENEOUS  SOLUTION 

<  0558  )  U<  1 ,  1)  «  0 

<  0559)  U< i ,2  >  »  1 

<0560)  300  M3  *  0 

<  0561  )  IF  <  NTGRS . EQ . 0  >  GO  TO  320 

<  0562)  GO  TO  <310/320  /  310,310,  320.  3  20/3  10/  320  K  K  8 

<0563)  310  IF  <J8  LE.L8)  GO  TO  99 

<0564)  L8  »  L8  +1 

<  0565)  XK8*K9<  L8 ) 

<  0566)  GO  TO  <310, 315/310/310, 315/315/31G/315*/  KK8 

<056?)  315  L81  «  L8 

<0568)  C  ***  IDENTIFY  TORSIONAL  EXCITATION  STATIONS 

<  0569)  M8*N8<  L8  ) 

<  0570  )  320  IF  <  L  3  EQ.O)  GO  TO  1 

<  05?1  )  M3  *  N3<  1  ) 

<  0572 )  J3  *  1 

<  05?3 )  C  ***  INTEGRATION  OF  THE  TORSIONAL  PROBLEM 

<  057  4  )  1  DO  4  L-1/L4P1 

<0575)  CALL  JFCN  <L,Ml > 

<  0576)  IF  <L  EQ  .  1  )  GO  TO  2 

<057?)  1F<  ITORS.GT.O  )  GO  TO  32 

<  0578)  P4  F<  J  4  )  *  F2#P4<  J  4  ) 

<  0579)  U<  M  1 ,  1  )  »  U<M2,  1>-P4F<  J4)*U<M2,2> 

<0580)  U<  M  1 , 2  )  *  U<  M2,  2)  +  C4<J4  >*U<  Ml,  1  ) 

<  0581  )  32  IF  <  LL8 . EQ . 0  )  GO  TO  2 

<0582)  VV<  Ml , 1  )  «  VV<M2, 1  )-P4F< J4)*VY<M2,2 ) 

<  0583)  VV<  M  t  ,  2  )  »  VV<H2,  2  )+C4<  J4  )*VV<  Ml  ,  1  ) 

<  0584)  2  CALL  MFCN<  L, M21 ,M2  ) 

<  0585)  DO  4  K  =  H 1 , M2 

<0586)  K4  *  K-J4 

<  058 7)  IF  <  J  8 . E  Q . 0  )  GO  TO  33 

<0588)  IF  <K4.NE.M8)  GO  TO  33 

<  0589)  GO  TO  <  33/87,33/33/87/  87/  33/8?)/  KK8 

<  0590)  87  L82  *  L81 

<0591)  L81  «  L81+1 

<  0592)  IF  (L81.LE.J8)  M8  *  N8<L8i) 

<0593)  IF  <L82.NE.L8)  GO  TO  33 

<  0594)  MH9  »  K 4 

<0595)  KK8  =  1 

<0596)  MM 8  =  K 

<059?)  LL8  *  1 

<0598)  C  ***  INITIALIZE  PARTICULAR  SOLUTION 

<  0599)  VV<  K ,  1)  *  -1 

<  0600)  VV<  K,  2  >  *  0 

<  0601  )  33  IF  <  M3 .  NE  .  K4  )  GO  TO  3 

<0602)  IF<  ITORS.GT.O  )  GO  TO  34 

<  0603)  PF<  J3  >  ■  F2*PCJ3) 

<  0604)  U<  K  / 1  )  ■  U<K,  1>-PF<J3)*U<K,2> 

<0605)  34  IF  (LL8.EQ.0)  GO  TO  35 

<0606)  VV<  K ,  1  >  *  VV<K,  1 >-PF< J 3 >*VV< K, 2  ) 

<060?)  35  J3  »  J3+ 1 

(0608)  IF  <L3.GE.J3)  M3  »  N3<J3) 

<0609)  3  IF  (K.GT.M21  )  GO  TO  4 
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s 

\ 


<  0610) 

<  061  n 
( 0612) 
(0613) 
(0614) 

<  0615 ) 
( 0616) 
(061?) 

<  0618) 
( 0619) 
(0620) 
(0621) 
( 0622) 
( 0623) 
( 0624) 
( 0625) 
(0626) 
( 0627) 
( 0628) 

<  0629) 
( 0630) 
(  0631  ) 
( 0632) 

<  0633) 

<  0634  ) 
( 0635) 
( 0636) 
( 0637) 
( 0638) 

<  0639) 
( 0640) 
(  0641  ) 
( 0642) 

<  0643) 
( 0644) 
( 0645) 

<  0646  ) 

<  0647  ) 
< 0648) 
(  0649  ) 

<  0650) 
(0651; 

<  0652) 
t  0653) 
(  0654  ) 
(  0655 ) 
(  0656) 
<. 0657) 
( 0653) 
( 0659) 

<  0660 ; 
(  0661  ) 
<  0662  ) 
<  0663) 


KP  «  K+i 

1F<  ITORS.CT.O  )  CO  TO  36 
8(1)  «  U<  K ,  1  > 

8(2)  «  U(K, 2) 

CALL  TORS  <K,B> 

U(KP,  1)  »  t<  1  > 

U(  KP,  2  >  *  8(2) 

36  IF  (LL8.EQ.0)  CO  TO  4 

8(1)  «  VV(  K,  1  ) 

8(2)  *  VV<  K,  2  ) 

CALL  TORS  < K , 8 ) 

VV( KP , 1 >  «  8<  1) 

VV(  KP ,  2  )  «  8(2) 

4  CONTINUE 

IF(  ITORS.CT.O  )  CO  TO  46 

C  ***  END  EXCITATION  RESPONSE 

ZE  «  U( N2«  1 ) 

TORD( 19,1)  «  ZE 
YE*ZE 

IF  (U(H2 ,2  > . NE . 0 )  GO  TO  7 
IF  (15. EQ. 1) 

+  WRITE  ( KU, 5002 )  F 

5002  FORMAT  (26H1END  NODE  IS  STATIONARY  AT , 1PE1 2  .  4 , 3H  H7/9H  TORS  STI, 
♦52HFF  BELOW  IS  END  TORQUE  PER  UNIT  TWIST  OF  FIRST  N0DE./1H  > 

GOTO  8 

7  ZE  *  ZE/U<  M2 , 2  ) 

IF  ( I5.EQ.  1  ) 

♦  WRITE  ( KW, 5006  ) 

5006  FORMAT  <  1H1  ) 

8  DO  5  L«1,L4P1 
CALL  JFCN  <L, Ml  ) 

M2  3  N2(L)+1 

DO  5  K  3  M  1 »  M  2 

IF  <K .EQ  Ml . AND .1 . NE  .  1  >  GO  TO  5 
K4  3  K-J4 
2H(K4)  *  U<  K  ,  2  ) 

IF  (K4.LT.L1P)  88 B  *  85<K4> 

TRATE(K4  )=U(  K  ,  1  )/ YE/BBB 

5  CONTINUE 
CALL  MODE 

IF(NTORS.GT.O)  WRITE(IO)  <  ZIK  K4  ) ,  K4  =  1 ,  L 1  P  > 

IF  ( 15. NE.  1 )  GO  TO  9 

WRITE  ( KW, 5007  )  F , LI P, Z< L  IP  ) , ZE 

5007  FORMAT  (13H  FREQUENCY  =,1PE12.4,3H  H2/13H  NODE  NO  =,13/ 

+ 1 3 H  LOCATION  =,1PE12.4,3H  IN/13H  TORS  STIFF  *,1PE12  4, 

+  1 0 H  I N-LB/RAD/l H  ) 

WRITE  ( KW, 50 1 3  ) 

5013  FORMAT  ( T1 5, 8HL0C ATI  ON , T3 1 , 8HREL AT  I VE , T4 9, 4HUNI T/T3 , 4 HNODE , T  1  7 , 

+  4H(  IH>,T32,5hTW1$1  ,T46>  10HTWIST  RATE/1H  ; 

DO  6  K= 1 ,L  IP 

6  WRITE  ( KW, 501 4  )  K, Z<  K), ZMtK  ),TRAT£<  K  ) 

5  014  FORMAT  (I5,2(1X,F15  4  ) , 7X . 1  PE  1  l  . 4  ) 

KPAGE  3  0 

9  IF( MTORS  EQ.O)  GO  TO  99 
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<  06(4) 

<  0665) 
( 0666) 

<  0667) 

<  0668) 

<  0669) 
<0670) 

<  0671  ) 
<0672) 

<  0673) 

<  0674) 

<  0675) 
<0676) 
<0677) 

<  0678) 

<  0679) 

<  0680) 
<  0681  ) 
<  0682) 

<  0683) 
<0684) 

<  0685) 

<  0686) 

<  0687) 
<0688) 

<  0689) 

<  0690) 

<  0691  ) 
<0692) 
<0693) 

<  0694) 

<  0695) 

<  0696) 
<0697) 

<  0698) 
<0699) 

<  0700) 

<  0701  ) 
<0702) 
<0703) 

<  0704) 
<0705) 
<0706) 

<  0707) 

<  0708) 
<0709) 
<0710) 
<0711) 

<  0712) 
<0713) 
<0714) 
<0715) 

<  0716) 
<0717) 


C  ***  ASSIGNED  EXCITATION  RESPONSE 
46  IF  <  U<  M2 , 1  ) .  EQ . 0 )  GO  TO  39 
IF  <  VV<  M2, l ) . EQ . 0  )  CO  TO  38 
VU  *  VV<M2,1  ) 

IF  (U(HM8,  2) . EQ .0  )  GO  TO  37 
AA  -  U<  MN8  ,  2  ) 

VU  >  VU  *  AA 
COTO  40 

37  IF  (I5.EQ.1)  WRITE<KW, 5003)  M8,F,M8 

5003  FORMAT  <28H1T0RS  EXCITATION  AT  NODE  N0.,I3,18H  CAUSES  FORE-SEGMT, 

♦  13H  RESONANCE  AT, 1  PD  12 . 4, 3H  H2/20H  TORS  STIFF  BELOW  IS, 

+19H  TOROUE  AT  NODE  N0.,I3,24H  PER  UNiT  TWIST  OF  FIRST, 

♦  6H  N0DE./1H  ) 

AA  •  1 
GOTO  41 

38  IF<  15 .EQ . 1  )  WRI TE< KW , 5004  )  M8,F,M8 

5004  FORMAT  <28H1T0RS  EXCITATION  AT  NODE  N0.,I3,l?H  CAUSES  AFT-SECMT, 

♦  13H  RESONANCE  A T, 1  PD  12 . 4 , 3H  H2720H  TORS  STIFF  8EL0W  IS, 

♦IfH  TORQUE  AT  NODE  N0.,13,23H  PER  UNIT  TWIST  OF  LAST, 

♦6H  NODE .  /1H  ) 

KU  «  2 

ZK<  L8  )  ■  1/VV<H2,2) 

GOTO  42 

39  IF  < 1 5 . EQ  .  1 )  WRITE  <KW,  5005  )  F 

5005  FORMAT  (27H1T0RS  RESONANCE  IS  FOUND  A T , l PD  1 2 . 4, 3H  HZ/1H  ) 

KU  «  3 

GO  TO  90 

40  IF  <15. NE. l.OR.KPAGE.NE.O)  CO  TO  41 

KPAGE  -  1 

WRITE  <  KW, 5006 ) 

41  IF  (KPAGE.NE.0.AND.I5.EQ. 1)  WRITE  <KW,5008) 

5008  FORMAT  </VlH  ) 

ZK<  L8  )  «  -U<  M2, 1 >7 VU 
KU  -  1 

42  AMP  »  -  V  V<  M2 ,  1)/'U<M2,1  ) 

IF<  I5.NE.1 >  CO  TO  90 

WRITE  <  KW,  5007 )  F , MM9, Z< MH9  ) , ZK< L8 ) 

90  JTORS  «  0 

I F  C  I5.EQ.1  )  WRI TE<  KW , SO  13  ) 

NN8  >  H8<  1  ) 

KK8  •  K8< 1 > 

JJ8  «  1 

DO  43  L-l , L4P1 
CALL  JFCN  < L , Ml  ) 

M2  *  N2<  L  )  +  l 
DO  43  K«R1,H2 
K4  ■  K-J4 

IF  <L .CT . 1 .AND. K. EQ. Ml  )  GO  TO  43 
IF  (K4.NE.NN8)  GO  TO  43 
IF  CKU.NE.3)  CO  TO  89 
88  =  2M<K4  ) 

GO  TO  890 
89  88-0 

TRATE<  K4  )  -  0 
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<0718)  IF  (KU  .  HE .  1 )  GO  TO  891 

(0719)  SB  «  B8  +  U<  K«  2  )/AA 

(  0720)  IF  <  L . L  T . L4P 1  .0R.K.LT.M2)  TRATE<  K4  >  «  TRAT£< K4 >+U< K, 1 >*AMP 

<  0721  )  891  IF  <HH8 . GE  .K  )  GO  TO  892 

<  0722)  88  -  68  +  2K<  L8  >*VV<  K<  2 ) 

<0723)  IF  <L.LT.L4P1 .0R.K.LT.H2)  TRATE<  K4  >  «  TRATE(K4  )  + VV<  K ■  1  ) 

<  0724)  892  TR  AT£<  K4  >  *  TRAT£<  K4  )/BS<  K4  ) 

<  0725)  890  IF< I5.EQ.1 >  «RI T£ < KU , 30 14 >  K4,  Z<  K4  > ,  88  ,  TRATE<  K4  ) 

<  0728)  GO  TO  <94/93>94<94>93/93»94<93)>  KK8 

<0727)  93  JTQRS  »  JTQRSfl 

<0728)  IF  (KU.NE.3)  GO  TO  91 

<  0729)  GG  -  ZM<  K4  ) 

<0730)  GO  TO  92 

<  0731  )  9-1  GC  »  AMP*U<  K  <  2  > 

<0732)  IF  <  HH8  . LT . K  >  GG  •  GG+VV<K,2> 

<  0733)  92  VV<  JTORS  <2  )  «  GG 

<  0734)  94  IF  <JJ8.E8.J8)  GO  TO  4*4 

<0735)  J J 8  «  JJ8+1 

<0738)  NH8  *  H8CJJ8) 

<0737)  KK8  «  K8< J J8  ) 

<0738)  43  CONTINUE 

<0739)  44  ITORS  >  ITORS+1 

<0740)  IF<  NTORS  .GT.  0  )  URITE<10>  KU  <  <  VV<  L  ,  I  TWO // L*  l  ,  NTORS  > 

<0741)  IF  <IT0RS.E8. NTORS)  GO  TO  99 

<0742)  C  ***  NEXT  EXCITATION  STATION 
<0743)  L8  *  18+1 

<0744)  KK8  «  K8<  L8  ) 

<0745)  L81  «  L8 

<0748)  N8  «  N8<  L8  ) 

<0747)  LL8  »  0 

<0748)  GO  TO  300 

<0749)  C 

<0750)  C  CALCULATE  BENDING  RESPONSE 

<0751)  C 

<0752)  99  IFU5.EQ.1)  GO  TO  1000 

<0753)  L8«l 

<0754)  LL8  «  0 

<0755)  IF  <15. EQ. 1)  GO  TO  218 

<0756)  L81  «  L8 

<0757)  400  L83  «  1 

<0758)  L84  «  1 

<0759)  IF(J8.E8.0)  GO  TO  10 

<0760)  N8  «  N8<  L8  ) 

<0761)  KK8  -  K8(L8 ) 

<0762)  IF  <NBENO,GT.O)  URITE<10)  F,CSPD 

<0763)  I8END  -  0 

<0764)  10  IF  <L8.GT. 1)  GO  TO  45 

<0765)  FFRT  ■  SQRT<  FF  > 

<0766)  CALL  BEND 

<0767)  C  ***  INITIALIZE  HOMOGENEOUS  SOLUTION 

<0768)  DO  12  K=l,2 

<0769)  KB  *  4*K 

<0770)  K81  «  9-KB 

<0771)  KB4  *  KB1*3 


(0772) 

00  18  KB0*KB1,K84 

(0773) 

00  18  Kl*l <2 

(0774) 

180  ■  KFCN<ITWQ<K<K1  ) 

(0775) 

18 

AA5< 1 <  KBO<  L80  >  >  0 

<0776) 

00  12  K 1*1 <  4 

(0777) 

KK3  -  KFCN<IFOUR<K<KD 

(0778) 

DO  12  K2*l < 2 

(0779) 

KK4  *  KFCN< I  TWO  < K <  K2 ) 

(0780) 

K3  «  Kl-2 

(0781) 

IF  <K2.EQ.K3)  GO  TO  11 

(0782) 

AA  *  0 

<0783) 

CO  TO  12 

(0784) 

11 

AA  *  1 

<0788) 

12 

AA5<1<KK3<KK41  •  AA 

<0780 

00  95  K 1  *1  <  2 

<0787) 

UU< 1< 1<K1 >*0.0 

(0788) 

95 

UU(  1  <  2 <  fC  1  >*1 . 0 

<  0789) 

C  *** 

START  OF  ASSIGNED  EXCITATION  RESPONSE 

<0790) 

45 

4BEND  *  0 

<  079 i  ) 

c  *** 

START  OF  SENSE- OF -ROTATION  CYCLE 

<0792) 

451 

N3  *  0 

<0793) 

L85  *  L8*L83*L84 

<  0794) 

IF  < L3 . EQ . 0 )  CO  TO  13 

<0795) 

H3  *  N3<  1) 

<0796) 

43  -  1 

<  0797) 

13 

H5  -  0 

<0798) 

LB  *  1 

<0799) 

IF  <L5 . GT . 0)  HS  *  N5< 1 > 

<  0800) 

c  *** 

INTEGRATION  OF  THE  BENDING  PROBLEM 

<0801) 

DO  20  J  *  1 , L4P  l 

<0802) 

CALL  4FCN  <  J  <  HI  ) 

<0803) 

IF  <J  .EQ.  1  )  GO  TO  15 

<  0804) 

IF  (L8.GT. 1.AN0.LL8.EQ.0)  GO  TO  47 

<0805) 

CALL  LUMP  l  <W4<441<Y4<  J  4  >  <  T4  <  J  4  >  <  P4S<  4 4 > , FF < F2, A A < BB < CC < DD > 

<  0806) 

47 

IF  < L85 . GT  .  1  >  CO  TO  48 

<0807) 

DO  16  K 1 *1 <  4 

<  0808) 

DO  14  K*  1  <  8 

<  0809) 

14 

B<  K  )  *  AA5<M2<K<K1  ) 

(0810) 

CALL  LUMP  <AA<BB<CC< DD<B) 

(0811) 

DO  16  K*  l  <  8 

<0812) 

16 

AA5<M1<K<KD  *  B<  K  ) 

<0813) 

CALL  LIMP  <M1<AM,BM) 

<0814) 

CALL  COUP  <  M  1  <  BM ) 

<0815) 

DO  88  K  1  *1  <  2 

<0816) 

88 

AI<44<K<K1  )  *  AM<  K  <  K 1 ) 

<0817) 

48 

IF  CLL8.EQ.0)  GO  TO  15 

<  0818) 

DO  49  K*  1  <  8 

<0819) 

49 

B<  K  )  *  QU<M2<K<L83  1 

<  0820) 

CALL  LUMP  <AA<BB<CC< DD<B) 

<0821) 

CALL  C0UP1  <M1/44<AI<8) 

<  0822) 

DO  50  K  =  1  <  8 

<  0823) 

50 

QU<M1<K<L831  *  B<  K  ) 

<0824) 

15 

CALL  MFCN<4<H21<M21 

<  0825) 

DO  20  KQ=M 1 <  M2 
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% 

(  0820 

K4  *  K0-J4 

\ 

(0827) 

IF  (J8.E8.0)  CO  TO  56 

(0828) 

IF  ( K4. HE . M8 . OR . KK8. LE .2)  CO  TO  56 

(0829) 

c  *** 

IDENTIFY  BENDINC  EXCITATION  STATIONS 

(0830) 

L82  »  L8 1 

* 

(0831) 

L81  «  L81  +  1 

(0832) 

IF  ( L81 .LE.J8)  M8  -  N8(L81) 

1 

(0833) 

IF  (L82.NE.L8)  CO  TO  56 

-S 

(0834) 

K08  -  KO 

(0835) 

K09  »  K 4 

(0838) 

LL8  -  1 

(0837) 

CO  TO  (356,356,52,53, 52,53/51, 51  >,KK8 

31 

(0838) 

51 

IF  (L84.EQ.2)  GO  TO  53 

(0839) 

52 

H88  «  1 

| 

( 0840) 

GOTO  54 

(0841) 

53 

N88  ■  2 

(0842) 

54 

KK8  -  1 

(0843) 

C  *** 

INITIALIZE  PARTICULAR  SOLUTION 

1 

(0844) 

00  55  K«l, 2 

(0843) 

00  55  Kl-1,4 

1 

( 0848) 

K2  ■  KFCN( IFOUR , K , K1 ) 

£ 

i 

(0847) 

K3  -  KFCN( ITUO, K, K 1 ) 

p 

( 0848) 

IF  <  K 1  . HE. M88 .OR. L83 .HE .K >  CO  TO  855 

? 

( 0849) 

AA  «  1 

s 

( 0850) 

GO  TO  955 

I* 

(0851 ) 

855 

AA  *  0 

i 

( 0852) 

955 

IF  (K1.LE.2)  XV<  K3 , L83 )  *  A  A 

(0853) 

IF  (K1.EQ.2.AND.M88.EQ.2)  AA  *  -AA 

( 0854) 

55 

QU( KO , K2 , L83  )  »  AA 

ki 

<  0855) 

356 

IF  (L8.GT.1.AN0.LL8.EQ.0)  GO  TO  216 

ti 

§* 

<  0856) 

56 

IF  (M3.NE.K4)  GO  TO  17 

? 

< 0857) 

IF  (L8.GT. 1.AN0.LL8.E8.0)  GO  TO  57 

( 0858 ) 

CALL  LUMP1  (W(J3),Y(  J3 > , T< J 3 >, PS<  J3  >,  FF,  F2  ,  AA  ,  BB  ,  CC,  DD  ) 

<  0859) 

57 

IF  (L85  ,GT. 1  )  GO  TO  601 

tp 

( 0860) 

DO  59  Kl»l,  4 

1 

( 0861 ) 

DO  58  KM, 8 

{ 

( 0862) 

58 

B( K  >  ■  AA3(K0,K,K1 ) 

5* 

<  0863) 

CALL  LUMP  ( A  A , BB, CC, DO, B) 

1 

<  0864) 

DO  59  KM,  8 

<  0865) 

59 

AA5CK0, K,K1 )  =  B<  K ) 

1 

<  0866) 

601 

IF  (LL8 . EQ .0 )  GO  TO  62 

| 

<  0867) 

DO  60  KM, 8 

I' 

( 0868) 

60 

8(K>  =  QU(  KO  ,  K ,  L8  3  ) 

s 

<  0869) 

CALL  LUMP  ( A  A , BB, CC, DO, B) 

( 0870) 

DO  61  KM, 8 

, 

<  0871  ) 

61 

QU<  KO  ,  K  ,  L8 3  )  =  B<  K  ) 

1 

j 

<  0872) 

62 

J3  =  J3+1 

£  * 

1:' 

; 

<  0873) 

IF  (L3.GE.J3)  M3  *  N3(J3) 

! 

(  087  4 ) 

1  7 

IF  (M5.NE.K4)  GO  TO  19 

fe 

; 

( 0875) 

I F (  L8 5  GT.  1  )  GO  TO  666 

<  0876) 

DO  65  Kl-1,4 

B 

<  0877) 

DO  64  KM, 8 

1: 

<  0878) 

64 

B<  K )  =  AA5(K0,K,K1  ) 

g»’ 

|f( 

<  0879) 

B(  K  )=AA5<  KO, K  ,  K  1  > 

i 

E 

1 

s 

j 

} 

l 
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l 

K 

gJJi 

X 

KiV  • 

- — - - - ‘ E-'- 

t.  0880) 
« 0881 > 
<  0882) 
<■  0883  ) 
1 0884) 
( 0885) 
< 0888 ) 
< 0887) 
( 0888) 

<  0889) 
<0890) 

<  0891  > 

<  0892 ) 

<  0893) 

<  0894) 
(0895) 

<  0896) 

<  0897) 
< 0898) 

<  0899) 

<  0900) 

<  0901  ) 

<  0902) 

<  0903) 

<  0904) 
< 0905) 

<  0906 ) 

<  0907) 

<  0908  ) 

<  0909) 
(0910) 
(0911) 
<0912) 
<0913) 
< 0914) 
<0915) 
<0916) 
<0917) 
<0918) 
<0919) 
< 0920) 
<0921) 

<  0922) 

<  0923) 

<  0924) 
< 0925) 

<  0926) 
(0927) 

<  0928  ) 

<  0629 ) 

<  0  9  3  C  ) 

<  0931  ) 
<0932) 

<  0933) 


-  ”  i-i  ”""j—  _  _ 


B<  1  >«B<  1  >-XS(LB,i  )*8<  4  > 

8<  2  )*3< 2  >+XS<  LB,2  >*B<?  > 

B<  5  )  =  8<  5  )-XS<  LB  / 1  >*8C8> 

B<  6  )  =  B<  6  )+XS<LB/2)*B<7  ) 

DO  65  K-  1 , 8 

65  AA5<K0,K,K1>  »  8<  K  ) 

666  IF  (LL8.EQ.0)  GO  TO  68 

DO  66  K  =  i  /  8 

66  B<  K  >  *  GU( KO  >  K, 183  ) 

B<  1  >*B<  l  >-XS<  L8 , 1  )*8<  4  ) 

8< 2 )*B< 2  )  +  XS< LB/2  )*B<3  ) 

8<  5 )«B<  5 )-XS<  LB/ 1  )*8<8  ) 

B(  6  >aB(  6  )+XS(  LB  ,2  )*B(  7  ) 

DO  67  K*  1  /  8 

67  QU<  KO / K / L83  )  *  B< K  ) 

68  I?  < LB . EG . L5  )  GO  TO  19 
LB  *  LB+1 

M5  •  N5<  LB  ) 

19  IF  <KG  GT.M21 )  GO  TO  20 

IF  < L8 . GT . 1  .AND.  LL8.EQ.0)  CO  TO  957 
TRAH«0.5*TRA<K4  ) 

P0LHaSS*TRA<K4) 

ALUMP  ■  0.0 
BLUMP  =  0.0 

CALL  LUMP1< ALUMP/ BLUHP / TRAH / POLH / FF / F2 , A  A/ BB, CC / DD  ) 

957  IF< L85. GT. 1  )  GO  TO  6019 
DO  959  KIM/4 

DO  958  •'-1,8 

958  B<  K  )* AA5 CKO,  K  .•  K 1  ) 

CALL  LUMP<AA,8B/CC,DD,B) 

DO  959  K= 1 , 8 

959  AA5<K0/K/K1)=B<K) 

6019  IF(LL8.EQ.O)  GO  TO  "62 

DO  960  K*l,8 

960  8<K)*QU<K0,K,L83> 

CALL  LUHP< AA/BB/CC/DD, B  ) 

DC  961  K*l,8 

961  QU<  KO / K , L83 )a8<  K  ) 

962  CONTINUE 
KP  =  KO+1 

IF  (L8.GT  1 . AND .LL8. EG. 0)  GO  TO  69 
CALL  FLEX  <  K4 , FFRT  ,  E  ) 

69  IF  (L85 . GT . 1  )  GO  TO  72 
DO  71  Kl»l,4 

DO  70  K=  1 , 8 

70  8<  K  )  *  A A5( KO , K , K  1  ) 

CPU.  CFLEX  <K4,B/E) 

DO  71  K *  1 , 8 

71  AA5<KP,K,K1>  •  B< K  ) 

72  IF  <  LL8 . EQ . 0  )  GC  TG  20 
DO  73  K  *  ! ,  8 

73  B<  K  )  *  GU<  KO ,  K,  L83  ) 

CALL  CFLEX  <K4/B,E> 

DO  74  K=l,8 


{ 

l 

i 


i 
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(0934) 

74 

QU<  KP  /  K  /  L83  )  *  8(K) 

(0935) 

IF(L8.GT.i  . AND .  LL8.EQ.0)  CO  TO  85? 

(  0936 ) 

ALUMP  «  0.0 

( 093?) 

SLUMP  »  0.0 

( 0938) 

CALL  LUMP1( ALUMP/ 8LUMP/TRAH/P0LH/FF/F2/AA 

(0939) 

857 

1F( L85 . GT . 1)  CO  TO  6018 

( 0940) 

00  859  K 1  *  1  /  4 

(  0941  ) 

DO  858  K«1 / 8 

( 0942) 

858 

B(K)~AA5(KP,K/K1> 

(0943) 

CALL  LUMP(AA/BB/CC/DD/8> 

(0944) 

00  859  K*1  /  8 

( 0945) 

859 

AA5(KP/K/K1)*B(K) 

(0946) 

6018 

IF( LL8 . EQ . 0 )  GO  TO  862 

(0947) 

DO  860  K*l/8 

( 0948) 

860 

B( K  )*QU( KP / K / L83 ) 

(0949) 

CALL  LUMP(AA/BB/CC/DD/B> 

( 0950) 

DO  861  K*1 / 8 

(0951  ) 

861 

Q0(KP/K/L83)»B(K> 

( 0952) 

862 

CONTINUE 

( 0953) 

KQ*K4+1 

( 0954) 

UU( KQ < 1 / 1  )=A  A5( KP / 4/  1  ) 

( 0955) 

UU( KQ/ 2, 1 )*A A5( KP , 4, 2) 

(0956) 

UU(K9/l/2)=AA5(KP/8/3) 

( 0957) 

UU(KQ/2/2)*AA5(KP/8/4> 

( 0958) 

20 

CONTINUE 

( 0959) 

IF  (L85 . GT .  1  )  GO  TO  20? 

( 0960) 

IF(LIST.EQ.O)  URI TE( KU / 50 19  )  S/F 

(  0961  ) 

5019 

FORMAT  (  17H1BEN0ING  RESPONSE// 12H  SPEED 

( 0962) 

♦  12H  FREQUENCY  =  /1PD12.4/3H  HZ/iH  > 

( 0963) 

JORB  =  0 

( 0964) 

IF(S.NE.O.O)  GO  TO  9226 

( 0965) 

NGYRO  *  1 

( 0966) 

GO  TO  9227 

( 096?) 

9226 

NGYRO  »  2 

( 0968) 

c  *** 

ISOTROPIC  END  DETERMINANT  CHECK 

( 0969) 

9227 

DO  9222  Ns 1/2 

( 0970) 

HN  =  2*(N-1> 

( 0971 ) 

DO  9221  3*1/2 

( 0972) 

3 3  *  2*NN+3 

( 0973) 

DO  9221  K*  1  /  2 

( 0974) 

KK  «  NN+K 

( 0975) 

9221 

AM( 3 / K )  »  Ah5(M2/ 33/ KK  ) 

( 0976) 

IMAXA  >  2 

(0977) 

IMAX8  »  0 

( 0978) 

CALL  MAX IV< AM/ IMAXA/ BM/ IMAXB/ DETERM/ 3  MAX  > 

(0979) 

OET(N )=DETERM 

(0980) 

IF  (IMAXA. NE.O)  GO  TO  21 

(0981) 

WRITE  ( KU/ 502 1 )  F 

( 0982) 

5021 

F0RMAT(/3OH  BENDING  RESONANCE  IS  FOUND  AT 

( 0983) 

c  *** 

CALCULATE  ISOTROPIC  RESONANT  MODE 

( 0984) 

30RB  »  H 

( 0985) 

28 

3*1 

( 0986) 

K1  »  NN-U 

(0987) 

K2  *  NN+2 

6 B < CC/ DO  ) 


1  P  D 1  2  .  4  /  4  H  RPR/ 


4/4H  HZ//) 
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<0988)  23  J1  '  NN  +  J 

<0989)  J2  *•  NN  +  J1 

<0990)  IF  <AAS< M2, J2/K1). £0.0.0)  GO  TO  24 

<  0991  )  £<  K 1  )  >  -*AA5<M2,J2,K2)/AA5<M2,J2,Ki  ) 

<0992)  £<K2)  -  1 

<0993)  GO  TO  9222 

<  0994)  24  IF  <A A5< M2 #J2,K2). £0.0.0)  GO  TO  25 

<0995)  E<  K 1  >  «  1 

<0996)  £<  K2  )  ■  0 

<0997)  GO  TO  9222 

<0998)  25  IF  <J .£0 .2  )  GO  TO  26 

<  0999)  J  *  2 

<1000)  GO  TO  23 

<1001)  C  ***  INVERT  ISOTROPIC  END  MATRIX 

<  1002)  21  DO  27  J  ■  1 , 2 

< 1003)  JJ  *  NN  +  J 

<1004)  DO  2?  K*l/2 

< 1005)  KK  -  NN  +  K 

<  1006)  27  AHI<JJ,KK)  -  AM<J,K) 

<  1007)  IF  <N .EQ . 1  )  CO  TO  28 

<  1008)  WRITE  <  KW, 5025 )  S < F/ < DET< NWH IRL > , NWHI RL= 1 , 2  ) 

<  1009)  5025  FORMAT  < 1P2E 1 2 . 4, 2E1 5 . 6  ) 

<  1010)  GO  TO  28 

<1011)  9222  CONTINUE 

<1012)  DO  76  H*l, LIP 

< 1013)  DO  76  J  *  1 , 2 

<1014)  SHAPE=0 . 0 

<1015)  DO  75  K«  1  / 2 

<1016)  K1 =K 

< 1017)  IF< J.E8.2)  K 1 *K 1 +2 

<1018)  75  SHAPE=SHAPE+E<K1)*UU<N,K/J) 

<1019)  76  UU<N,  li  J  )*SHAPE 

<  1020)  WRITE  <  10  )  <DET<N),N«1,2),CZ<NU),<UU<NU,I0NE,J  ),  J*1,2>,NU=1,L1P 

< 1021  )  GO  TO  207 

< 1022)  26  WRITE  <KW/5022) 

<1023)  5022  FORMAT  <21H  END  MATRIX  IS  EMPTY. /IN  ) 

<1024)  CALL  EXIT 

<1025)  207  IF<LL8.EQ.O)  GO  TO  216 

<  1026)  IFCL83.EQ. 1. AND. LIST. EQ.O)  WR I TE< KW , 5 1 07  )  S,F,K09 

<1027)  5107  FORMAT  < 1 ?H1 BENDI NG  RE S PONS E // 1 9H  SPEED  ■  #1PDI2.4« 

<1028)  +  4H  RPM7/19H  FREQUENCY  =  ,1PD12.4,3H  H2/V 

<1029)  +19H  ACTION  NODE  NO.  =  ,13) 

< 1030)  DO  2081  K«l. 4 

<  1031  )  2081  AM AX<  K  )  *  0 

<1032)  C  ***  CALCULATE  ISOTROPIC  INITIAL  INFLUENCE  COEFFICIENTS 

<  1033)  NN  =  2*<  L  83- 1 ) 

< 1034)  DO  9225  *=1,2 

(1035)  JA  *  NN+J 

<  1036)  JB  =  5- J  A 

<  1037)  E<  JA)  =  0.0 

<1038)  IF  kJ0R8.EQ.L83)  GO  TO  9225 

<1039)  DO  29  K>1« 2 

<1040)  KA  «  NN+K 

< 1041 )  K8  *  NN  +  KA 
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<1042) 
<1043) 
< 1044) 
(1045) 
< 1046) 
(104?) 
<1048) 
< i 04  9  ) 
<1050) 
< 1051  ) 
< 1052) 
< 1053) 
<1054) 
<1055) 
< 1056) 
< 105?) 
< 1058) 
< 1059) 
<1060) 
< 1061 ) 
< 1062) 
<1063) 
< 1064) 
< 1065) 
< 1066) 
<1067) 
< 1068) 
<1069) 
< 1070) 
< 1071  ) 
< 1072) 
<1073) 
<1074) 

<  1075) 
<1076) 
<1077) 
<1078) 
<1079) 

<  1080) 
< 1081 ) 
<  1082) 
<1083) 
< 1084) 

<  1085) 
<1086) 
< 1087) 
(1088) 

<  1089) 

<  1090) 

<  1091  ) 

<  1092) 

<  1093) 
<1094) 
<1095) 


29  E<  J  A  )  =  E<,iA>-AMI<.JA,KA)*QU<M2,KB,L83) 

9225  £<  J  B )  «  0.0 

c  ***  qenerhte  coupling  station  influence  coefficients 

DO  211  L*t,L4Pl 

L6  *  L4P1-L+1 

M2  *  N2<  L6  >+  1 

IF  < L  EQ.l)  GO  TO  210 

8M(  1 ,  1  >  a  QC5(M1,4  >-AA5<  M2,  4 .2  >*E«  2  >-AA5»'M2 .4 .4  >*E' 4  ' 

BM<  2,  1  >  =  QC5CM1, 8  >-AASt  M2,  8 , 2  -•*£'.  2  .‘-AA5*.  M2 .0  •  4  -”*E<  4  > 

DO  209  K  =  1 / 2 

K4  =  KFCH< IF  OUR , K , 4  ) 

DO  209  J  =  1 , 2 
J1  »  2*J-1 

209  AM<  K, J  >  a  AA5<M2,K4,  J1  > 

IMAXA  =  2 

IMAXB  =  1 

CALL  MAXIVC  AM,  I  MAX  A,  BM  ,  IMAX8  DETERM,  JMAX  ) 

E<  1  )  *  BMC  1 ,  1  ) 

E<  3  )  =  BM<  2,  1  ) 

210  Ml  »  N 1 <  L6  ) 

DO  21  1  K0  =  M1  .  M2 
DO  21  1  K  =  1  ,  S 
QC5CK0, K  >  =  0 
DO  211  J  =  1 ,4 

211  QC5<K0,K>  a  GCVKO/K >+«A5<X0 .  K  ,  J  >«E<J  » 

C  ***  CALCULATE  TOTAL  ROTATIONAL  SOLUTION 

DO  214  L  =  1 ,  L  4P 1 
CALL  JFCH  <L , Ml  ) 

M2  a  N2<  L  )  +  l 
DO  214  K-M1.M2 
K4  a  K-J4 
DO  213  N  =  1  / 4 
J  =  N  +  4 
AA  a  QC5CK , H  ) 

BB  =  QC5<  K , J  ) 

IF<  K . LT . K08 )  GO  TO  212 
AA  =  Aft  +  QU < K < N, L83  ) 

BB  *  B8  +  8U<;k,  J,  L83  ) 

212  TRY  =  ABS<  A A  )+ABS<  BB  ) 

UU<  K, N, L83  )  a  AA 

UU(  K,  J ,  L 83  )  =  BB 

213  IF<  AMAX<  N )  LT  TRY)  AMAXCH  )  =  TRY 

214  CONTINUE 

IF  <L83 . GT . NGYRO)  GO  TO  2211 
IF<LIST.EQ.l  )  GO  TO  21? 

WRITE  <  KW, 5100) 

5100  FORMAT  < // T2 2 , 1 OHF ORCE  <LB  ) , T36,  14H MOMENT  < IN-LB)) 

WRITE  <  KW, 51 0 1 >  <  XV<  K,  L83  ),  K*1  ,4  ) 

5101  FORMAT  <15H  CO  -ROTATIONAL, 2<4X, 1  PD  12 . 5  )/ 

+ 15H  CTR-R0TATI0HAL,2(4X.IFD12.5)/1H  > 

WRITE  <  KW,  509  3)  <  AMAX<  K  ),  K=  1  ,  4  ) 

5093  FORMAT  <  T4 , 4HM0DE , T1 9, 5HSHEAR, T3 1 , 6HM0MENT , T4 3, 5HS LOPE, T5 4 , 
+  10HDEFLECT ION/1  OH  VARIABLES, T1 9, 5H<  LBS  ), T31 , ?H<  IN-LB  )  , T5? , 

+  4H<  IN  )/6H  SCALE, 8X, 1P4D12 ,4/lH  ) 
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< 1096)  WRITE  <KW,5023) 

(  1097)  3023  FORMAT  < T9 , 8HL0CA T ION, 2  1H  CO-ROTATIONAL  WHIRL, T?2.20HCTR-RGTfcTI0N 

U098)  +  AL  WHIRL/14H  NODE  <IN>,2(53H  SHEAF.  MOMENT  SLOPE  D 

(1099)  +EFLECTI0N  M/<EI)  )/lH  ) 

(1100)  217  NN8*N8(  1  ) 

<1101)  JJ8  -  1 

< 1  102)  DO  221  J«1 ,L4P1 

< 1103)  CALL  JFCN  <J,M1  ) 

< 1  104)  M2  *  N2< J)+l 

<  1.105)  DO  221  K=M1,M2 

<1106)  K4  »  KrJ4 

<1107)  IF<  K4  .  N£  NN8  )  GO  TO  221 

<1108)  DO  220  N«1 ,4 

< 1109)  L  =  N+4 

<1110)  B<  N  )  *  UU<  K,  N  ,L83  )/AMAX('N  ) 

<  1  111  )  220  8<L  +  1)  8  UU< K , L , L 8 3 >/AM AX(  N ) 

<1112)  IF  (J.LT.L4P1 .0R.K.LT.M2)  GO  TO  250 

<1113)  B<  5  )  *  0 

(1114)  B< 10)  =  0 

< 1115)  GO  TO  251 

<  1  116)  250  B<  5 )  =  UU(K,2,L83)/B2<K4) 

<1117)  B<  1 0  )  =  UUC  K  ,  6,L83  )/B2  <  K4  ) 

<1118)  251  IF< LIST  .  £Q  .  0  )  URI TE( KU , 5028 )  K4, 2( K4  ) , ( B( H  ) ,  H  =  1 ,  10  ) 

<1119)  5028  FORMAT  <I4,F11.4,2(IX,OP4F10.6,1PD12.4>) 

<1120)  1F< JJ8.EQ. J8)  GO  TO  2211 

<1121)  JJ8  *  JJ8+1 

< 1 122)  NN8  »  N8( J  J8  ) 

<1123)  221  CONTINUE 

< 1124)  2211  M8  =  N8CL8) 

< 1 125)  KK8  *  K8< L 8  ) 

< 1126)  IF  <  L83 . EQ . 2  )  GO  TO  215 

<1127)  C  ***  SWITCH  TO  CTR-ROTATI ONAL  CASE 

<1128)  L83  «=  2 

< 1*29)  LL8  *  0 

< 1  130)  L81  *  L 8 

<1131)  GO  TO  451 

<1132)  C  ***  CARTESIAN  REPRESENTATION 

<1133)  215  IF< LI  ST . EQ . 0  )  WRI TE< KW , 51 02  )  S,F 

<1134)  5102  FORMAT< /25H  CARTESIAN  R EPRES ENTA T ION// 19H  SPEED 

<1135)  +1PE12 .4, 5H  RPM  //19H  FREQUENCY  =  ,E12.4,3H  H2) 

<1136)  KKK8  *  KK8 

<1137)  WRITE(IO)  J0RB,M8,KK8 

<1138)  M«1 

< 1139)  DO  222  N*i , 4 

<  1  140)  222  AHAX<  N )  «  0 

<1141)  DO  224  J *1 , L4P1 

<1142)  CALL  JFCN  <J,M1  ) 

<1143)  M2  *  H2<  J  >  +  l 

< 1144)  DO  224  K*M1,M2 

< 1145)  K4  «  K-J4 

< 1146)  00  223  N»l,4 

<1147)  L  =  N+4 

< 1148)  AA  *  0.0 

<1149)  IF  <  J  ORB . NE . 2  )  AA  *  AA+UU<K,N,1> 


i 

'  >  ■ 
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V 


< 

1150) 

< 

1151) 

< 

1152) 

( 

1 153) 

< 

1154) 

< 

1155) 

< 

1156) 

223 

< 

1 157) 

224 

( 

1158) 

< 

1159) 

( 

1 160) 

5103 

< 

1161) 

< 

1162) 

5106 

< 

1163) 

< 

1 164) 

( 

1 165) 

< 

1166) 

7000 

( 

1 167) 

9999 

< 

1 168) 

7001 

< 

1169) 

5104 

( 

1170) 

< 

1171) 

< 

1172) 

7002 

< 

1173) 

< 

1174) 

( 

1175) 

( 

1176) 

< 

1 177) 

< 

1178) 

< 

1179) 

< 

1180) 

< 

1181) 

< 

1 182) 

< 

1  183) 

< 

1184) 

< 

1185) 

225 

< 

1186) 

( 

1  187) 

< 

1 188) 

< 

1189) 

( 

1190) 

252 

< 

1191) 

< 

1 192) 

253 

< 

1193) 

5105 

( 

1 194) 

< 

1 195) 

< 

1  196) 

231 

( 

1 197) 

< 

1  198) 

( 

1199) 

< 

1200) 

( 

1201  ) 

< 

1202) 

232 

< 

1203) 

88-0.0 

IF<  J0R8 . HE  .  1  )  BB--UU(K,L,2) 

XD5(K,N)  >  ( AA-BB )/2 
IF  (M.EQ.2)  XD5< K » N )  «  -XD5(K,N> 

TRY  «  < ABS(AA >tABS(BB) //2 
IF  <AMAX(N).LT.TRY>  AMAX(N)  ■  TRY 
XD5(K,L  )■  -<  AA+BB >/2 
CONTINUE 

IF<  LIST . £Q . 1  )  CO  TO  7002 
UR  I TE< KU , 5 103  ) 

F0RMAT</37H  STATION  FORCE  < LB >  HOHENT  < IN-LB)) 

URITE(KU,5106  )  K09,(XV<  J,  H),XV':  J,  M),J»l,2> 

FORMAT< 1 5/ 2<  3X, 1PE12.5)) 

IF  (JORB.NE.O)  CO  TO  7000 
URITE  <  KU, 5093 )  <  AMAX<  N  >,  N«“i  ,*  ) 

GO  TO  7001 
URITE  <  KU, 9999 ) 

FORMAT  <  53H  THE  FOLLOUING  ARE  NORMALIZED  RESONANT  DISTRIBUTIONS./) 
URI TE(KU  ,5  104  ) 

FORMAT  ( T9/29HL0CATI0N  VERTICAL  COMPONENTS , T72 , 21 HHORI ZONTAL  COMP 
♦0NENTS/I4H  NODE  <IN>.2<53H  SHEAR  MOMENT  SLOPE  DEF 
♦LECTION  M/(EI)  )> 

NH8-N8< 1  ) 

KK8  •  K8< 1  ) 

JJ8  *  1 

DO  226  J  3 1 » L  4P 1 
CALL  JFCH  ( J  ,  Ml  ) 

M2  »  N2<  J  )  +  l 
DO  226  K“M1, M2 
K4  3  K-J4 

IF  <J .CT . 1 .AND.K. EQ. Mi  )  GO  TO  226 
IF  <K4.NE.NN8>  GO  TO  226 
DO  225  N-l ,  4 
L  =  N  +  4 

B<  N  )  3  XD5<  K , N )/AM AX< N  > 

B(L  +  i  )  «  XD5(K,L)/AMAX<H) 

IF  <J  .LT.L4P1  .OR.K  LT.M2)  GO  TO  252 
B<  5 )  »  0 
B<  10)  3  0 
GO  TO  253 

8(5)  «  XD5<  K ,  2 >/B2( K4  ) 

B<  10)  »  XD5<  K,6  )/B2<  K4  ) 

IF  ( LIST  NE.l)  URIT£< KU, 5105  )  K4 , Z< K4 > , < B< N  )  , N* 1 ,  10  ) 

FORMAT  <13, 3H  RE, F  10 . 4 , 4F  10  6,1PD12  4/6H  I M, 63X , 0P4F 1 0  6,1PD12 
♦  4) 

GO  TO  (260,260,231,232,231,232,231,231),  KK8 

J8END  3  JBEHD+1 

K9<  JBEND >«1 

LSEND  =  NBEND+J  BEND 

ZK(JBEND)  =  XD5<K,4> 

2M<  LSEND  )  =  XD5<  X , 8) 

IF  (KK8.LT. 7)  GO  TO  260 
JBEND  3  JBEND+1 
K9< JBEND  )*2 
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“f 


(1204) 

LBENO  >  HBEND+J BEND 

<  1205) 

ZH< JBENO)  «  XD5<  K , 3 ) 

(  1206) 

2H<  LBENO  )  *  XD5<Ki7) 

< 1207) 

260 

IF  <JJ8.E8.J8)  GO  TO  227 

< 1208) 

JJ8  ■  JJ8+1 

<  1209) 

NN8  »  N8( J J8  ) 

<  1210) 

KK8  «  K8<  J  J8  > 

<1211) 

226 

CONTINUE 

< 1212) 

227 

CONTINUE 

<  1213) 

U£  I  ?£<  1 0  )  <  ZH<  K  )*  K*1  < NEND  ) 

< 1214) 

I8EN0  •  I6END+1 

(1215) 

IF  <KKK8  .LT. 7  .OR. L84  .EQ .2  )  GO  TO 

< 1216) 

C  *** 

SWITCH  TO  HOMENT  EXCITATION 

< 1217) 

L84  «  2 

< 1218) 

L8 1  -  L8 

<1219) 

N8  «  N8<  L8  ) 

< 1220) 

KK8  »  K8<  L8  > 

< 1221 ) 

L83  *  1 

< 1222) 

LL8  >  0 

< 1223) 

GOTO  45 

< 1224) 

244 

IF  < IBEND. EQ . NBEND )  GO  TO  100 

< 1225) 

C  *** 

IDENTIFY  NEXT  SENDING  EXCITATION 

<  1226) 

216 

LL8  -  0 

< 1227) 

240 

IF  <J8.LE.L8)  GO  TO  100 

< 1228) 

L8  *  L8+ l 

<1229) 

KK8  -  K8< L8 > 

<1230) 

IF  (KK8.LT.3)  GO  TO  240 

<1231) 

L81  -  L8 

< 1232) 

L93  -  1 

< 1233) 

L84  =  1 

<1234) 

M8  «  N8<L8) 

< 1235) 

GO  TO  45 

<1236) 

100 

CONTINUE 

(1237) 

1000 

CONTINUE 

(1238) 

WR I  TE<  1  0  )  <K9<  I  >,  I»l, NBEND) 

< 1239) 

RETURN 

<1240) 

END 

244 


STATION 
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( 1241  > 
(1242) 

< 1243) 
(1244) 

< 1245) 
(1240 
( 1247) 

( 1248) 

( 1249) 

( 1250) 

< 1251) 
(1252) 

( 1253) 
(1254) 
(1255) 

( 1256) 

( 1257) 
(1258) 
(1259) 

( 1260) 
(1261) 

( 1262) 

( 1263) 

( 1264) 

( 1265) 

(  1266) 

( 1267) 
(1268) 

(  1269) 
(1270) 

< 1271  ) 
(1272) 
(1273) 

<  1274) 

(1275) 

(1276) 

(1277) 

(1278) 

(1279)  1 

(  1280) 

(  1281 ) 
(1282)  2 
(1283)  3 

(1284) 

(  1285) 
(1286)  5 

(1287) 
(1288) 

(  1289) 

( 1 290 > 

( 1291 > 
(1292) 
(1293) 
(1294) 


SU8R0UT I NE  SYDSYN 

DIMENSION  BRGLX(2*2)/TLX(2/4>,DXX(2*11  >*X(  40,40> 

DIMENSION  M8( 20  )*  K8(  20  ) 

DIMENSION  DETER(2* 11  ) 

DIMENSION  IUARN( 2  *  1 1  ),  NFORCE(  20  )  ,  KFORCE(  20  >*BIC(20>*  SMALL(2Q> 
DIMENSION  SLANT(20)/PHA8E(20)/SPEED(11  ) 

DIMENSION  FLX(4/20)/PLX(80)/ULX(80) 

DIMENSION  ID£NT(4),NTITLE( 16  ),KEX(40> 

DIMENSION  IRLAB(  4  0)/  ICL AB(  40  >/ FREQ(  11  ) 

DIMENSION  BRGST(4/2)/ENDET(2>/SHAP£(76/3)/STIF(2/2/20)/ 

♦  DAM  P(  2*2*20)*  KB  G(4)*P0SIT(?6) 

DIMENSION  RET(11)*XINT( 11  ) 

DIMENSION  TABLXC60/122) 

COMMON/BMAT/XLX( 60  *  1 20  )  *  YLX( 60 , 1 20  )  * ZLX( 60 , 120 > , 

♦  XHALF(20/40>* YHALF( 20*40 )*2HALF(  20/  40  >/8HALF< 20*40) 
C0MM0N/8INV/XIN(60*i22)*X0U(60/122)*DLX(2),  IR0W(61  )*  IC0U61) 
COMMON/ WR/IW/LR 

COMMON/CBEG/ 1  BEG 
COMHON/W UADD/FSQ 
C0MM0N/8US/M8/K8*  X* POSIT 
C0HM0N/C0DA/K9( 20  ) 

COMHON/WUSA/RET,XINT 
COMNON/PRMS/IRUN* I  TYPE  *  IBRG, IDIAG 
COMHON/XGCON/SLOW  *  RLAX  * IGEN 
DATA  STIF*DAMP/160*0  0/ 

M60  *  60 
JR  *  1 
JC  »  1 
KEEP=8 
KR  =  LR 
KW  =  LU 
KSH VE=9 
ISLO  =  0 

READ  (10)  KASE, NTORS/NBEND 
IRUN  »  0 

IF  (NBEND.EQ  0 . AND . NTORS . E8 . 0 )  GO  TO  5 

REHD( KR* 110)  IRUN* 1TYPE / 1 BRG *  I  PR  I  *  I DI AG* IGEN- ISLO* IBEG 

IF  (ISLO)  1*2*3 

SLOW  »  2  0**ISL0 

RLAX  =  0 . 1**ISL0 

GO  TO  5 

RLAX  =1.0 

SLOW  =1.0 

IF  ( ISLO .EQ  0  )  GO  TO  5 
RLAX  =  10. 0** ISLO 
LI NE=Q 

NT  1  =  NTORS+1 
NT  2  =  2*NTQRS 
NT  B  =  NTORS  +  NBEND 
N2  ■*  2*NBEMD 
N3  =  N2+1 
NT  BB  =  NT0RS  +  N2 
N22  =  2  *  N2 
N2 1  =  N22-1 
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< 1295) 

H23  -  H22+1 

( 1294) 

H24  -  2*NTBt 

< 1297) 

00  400  4A3£*1  »KASE 

(1298) 

DO  6  1*1 <N2 

(1299) 

PLX(I)  *  0.0 

(1300) 

PLX(N2+I  >  *  0.0 

( 1301) 

00  6  4*1»4 

( 1302) 

FLX( J  *  I  )  *  0.0 

(1303) 

6 

CONTINUE 

(1304) 

REWIND  KSAVE 

(  1305) 

REWIND  KEEP 

( 1 336 > 

READ  (10)  IDENTjNTITLE/N8P0/L8RC/LN0DE/KRUN»LRUN 

(1307) 

IF( NBEHD . GT . 0  )  GO  TO  2005 

(1308) 

IRUN-0 

<  1 309) 

CO  TO  2017 

( 1310) 

2005 

IF(  IRUN.CT .2)  CO  TO  2016 

(1311) 

IF(IRUN.E8.0.0R.LRUN.EQ.l >  GO  TO  2017 

( 1312) 

2010 

WRIT£(KW,2015  >  LRUN, IRON 

( 1313) 

2015 

FORMAT  ( // 19H  PARAMETERS  (.LRUN  «,I5,?H  IRUN  «,15,19K>  ARF  INCOMPAT 

(1314) 

+IBLE.  ) 

(1315) 

CALL  EXIT 

( 1316) 

2016 

I F ( LRUN . EQ . 1 )  GO  TO  2010 

( 1317) 

2017 

CONTINUE 

(1318) 

IF  (IRUN.NE.4)  ITYPE  *  0 

(1319) 

CALL  RUNCON( K  W , I  RUN, IT YPE , I  DENT,  NTITLE ) 

( 1320) 

DO  399  KSPD* 1 . NSPO 

(1321) 

IF  (NTORS.Efl.O)  GO  TO  120 

(1322) 

READ  (10)  (KEX( I ) < 1*1 »  NTORS  ) 

(1323) 

IF  (KSPD  .GT. 1  )  GO  TO  120 

( 1324) 

URITE  (KW, 100) 

( 1325) 

100 

FORMAT  </30H  TORSIONAL  EXCITATION  STATIONS) 

(1326) 

WRITE  (KW.110)  (KEX( I), I*t, NTORS > 

( 1327) 

110 

FORMAT( 1615) 

(1328) 

120 

IF  (NBEND.EOO)  GO  TO  140 

(1329) 

READ  (10)  (KEX(I), I*NTi,NTB) 

(1330) 

IF(LBRG.EQ.O)  GO  TO  125 

(1331) 

READ  (10)  (KBG( IBR >,(8RGST( I BR , 4BRG  ), 4BRG* 1 ,2 >, IBR*1 . L8RG  ■ 

( 1332) 

125 

CONTINUE 

< 1333) 

IF  (KSPD  .GT. 1  )  GO  TO  140 

( 1334) 

WRIT£(KW, 130 ) 

( 1335) 

130 

FORMAT  (/28H  BENDING  EXCITATION  STATIONS) 

( 1336) 

WRITECKW/ 110)  <  KEX< I  >, I  *NT1 , NTB  ) 

( 1337) 

140 

READ  (10)  IFRE 

(1338) 

DO  390  JFRE«1 » IFRE 

(1339) 

IF( LRUN . EQ . 1 )  CO  TO  3901 

( 1340) 

REWIND  KSAVE 

(  1341  > 

REWIND  KEEP 

(1342) 

3901 

READ  (10)  NFREQ 

(1343) 

DO  380  KJ*1, NFREQ 

(1344) 

IF  (NTORS. EQ .0)  GO  TO  265 

( 1345) 

READ  (10)  FREQ(KJ  ) 

(1346) 

QHG*6.283185*FREQ(KJ ) 

( 1347) 

IONE  *  1 

< 1348) 

READ  (10)  (SHAPE( IPRINT , IOHE >, IPRINT=1 ,LNODE> 
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] 

( 1349) 

DO  150  1*1 /NTORS 

\ 

( 1350) 

READ  (10)  KU/  (X(<i  /  I)/J*1/NT0RS) 

( 1351) 

150 

CONTINUE 

( 1352) 

IF(  I01AG .HE. 2 )  CO  TO  175 

] 

(  1353) 

WRITE  (  KW/ 170 )  IDENT . NT ITLE 

; 

< 1354) 

170 

FORHAT  <  1H I » 20A4 ) 

( 1355) 

WRITE  ( KWf 160 ) 

» 

(1356) 

160 

FORHAT( 26H  TORSIONAL  NOBILITY  NATRIX/1H  ) 

* 

( 135?) 

175 

DO  180  1*1 /NTORS 

j 

( 1358) 

!RLAB(I)  *  1 

* 

( 1359) 

ICLAB(l)  *  1 

s' 

( 1360) 

00  180  J*l. NTORS 

J 

( 1361) 

42  *  2*4 

( 1362) 

J1  *  U2-1 

( 1363) 

XZNC I »«f  1  >  *  Xd,J  ) 

ik 

(  1364) 

XI NCI / J 2  >  -  0.0 

% 

1 

( 1365) 

XLXd/Jl  )  «  Xd/U> 

K 

(  1366) 

180 

XLX< I  /  J  2  )  *  0.0 

& 

1- 

(136?) 

IF( ID IAG . NE . 2  )  GO  TO  185 

k-r.t 

c? 

(  1368) 

DO  181  1*1 /NTORS 

! 

(  1369) 

DO  181  J*i <  NT2 

h 

( 13?0) 

TABLX( I / J  >  *  XLX< I/J  ) 

% 

(  1 3?  1  ) 

181 

CONTINUE 

i 

(1372) 

CALL  NOUTC  < TABLX / NTORS / NTORS/ H60 , J R, J C, IRLAB ,t CLAB. L INE/ Ktf > 

* 

(  1373) 

185 

IF  (KU.NE.2)  GO  TO  210 

% 

( 1374) 

WRITE  <  KW/  190)  FREO(  KJ  ) 

1 

< 1375) 

190 

FORMAT  ( 71  PE 1 2 . 4/ 38H  H2  IS  A  TORSIONAL  RESONANT  FREQUENCY  / 

| 

( 1376) 

♦37H  EXECUTION  HALTED/  SEE  USER'S  MANUAL. /1H1> 

J 

3 

( 1377) 

CALL  EXIT 

5 

(1378) 

210 

CALL  INVC  (NTORS/ IERR) 

3 

5 

(1379) 

IF  (IERR.NE.O)  CO  TO  4010 

3s 

<  1380) 

DO  215  1*1/ NTORS 

-* 

< 1381 ) 

DO  215  J *1 / N T2 

j. 

(1382) 

ZLX< I ,J  )  *  XOU< 1/ J  > 

3* 

<1383) 

215 

CONTINUE 

i» 

<1384) 

IF< IDIAG .NE. 2  )  GO  TO  240 

\ 

<  1385) 

WRITE  (KW/230  ) 

3 

(1386) 

^30 

FORMAT  <  /V/V27H  TORSIONAL  IMPEDANCE  MATRIX/1H  ) 

<1387) 

DO  231  1*1/ NTORS 

f 

<1388) 

DO  231  J*1/NT2 

1 

<1389) 

TABLXd/ J)  *  ZLX<  I/J  > 

<1390) 

231 

CONTINUE 

| 

<1391) 

CALL  NOUTC  < TA8LX / NT  OR S / NTORS / M60 / J R/ 4 C, IRLAB / 1 CLAB/ L INE  /  KU > 

1 

(1392) 

240 

IF  (NBEND.EQ.O)  CO  TO  360 

<1393) 

DO  260  1*1. NTORS 

1 

<1394) 

DO  260  J*1/NT2 

i=/ 

<1395) 

YLX<I/J  )  «  ZLX(  I,  J  ) 

B', 

<1396) 

260 

CONTINUE 

1, 

(139?) 
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IF  (NBEND.EQ.O)  GO  TO  360 

i 

if5. 

(1398) 

READ  (10)  FREQ<  KJ  )/SPD 

H 

< 1399) 

0MG*6  2831 85*FRE8<  KJ  ) 

Sr 

k4 

(1400) 

SRPM  *  60 , Q*SPD 

fe 

< 1401 ) 

READ  <10)  <ENDET< IDET)/ IDET*1/ 2)/  < POS I T < I PRI NT  ) . < SH APE< I  PR  I  NT 

1* 

K5?" 

<1402) 

+  ISHAPE)/ISHAPE*2/3)/IPRINT*l/LN0DE) 

(  1403) 

<  1404) 

<  1405) 

( 1406)  280 

< 140?) 
(1408) 

<  1409) 

<1410)  270 

<1411) 
<1412)  290 

<1413)  295 

<1414) 
<1415) 
<1416) 

<  141?) 

<  1418) 
<1419) 

<  1420) 

<  1421  ) 

<  1422) 

<  1423) 

<  1424) 

<  1425) 

<  1426) 

<  1427) 

< 1428) 

< 1429) 

<  1430) 

<  1431 ) 

<  1432) 

< 1433) 

< 1434) 
<1435) 

<  1436) 
<143?) 

< 1438) 

<  1439) 

<  1440) 
<1441) 

<  1442) 

<  1443) 

<  1444) 

<  1445) 

<  1446) 

<  1447) 

<  1448) 

<  1449) 

<  1450) 
<1451) 

<  1452) 

<  1453) 

<  1454) 

<  1455) 

<1456)  300 


DO  280  i *1 , NBEND 

READ  <10>  vIORB  r  H8<  I),K8<I  ) 

READ  < 10  )  <X<  J. 1 ), 4«1, N2) 

CONTINUE 

IF< ID  I AC . HE . 2  )  CO  TO  295 
WRITE  <KW,i?0>  IDENT  ,NTITL£ 

WRITE  <  KW, 2?0  )  FREQ<  KJ  ) ,  SPD 

F0RHAT<  7 10H  FREQ  «  ,1PE12.4,3H  H2/10H  RPS 

WRITE  <  KW/  290  ) 

FORHAT<  24H08END INC  NOBILITY  MATRIX) 

NN 1 •N8END- 1 
DO  300  1*1, NM1 
IRL AB< I  )«1 
ICL AB< I >»I 
L  *  NBEND+I 
IRLA8<L )»L 
ICLAB< L  )*L 
12  *  2*1 
II  »  12-1 

XLX< 1,11)  =  X< I  ,  I  ) 

XLX< 1,12)  *  0.0 
XLX<  L , I  1  )  =  0.0 
XLX< L , 12  )  *  X< L ,  I  ) 

L2  -  2*L 
LI  *  L2-1 

XL X <  I ,  L  1  )  *  -XLX<  L  ,  1 1  ) 

XLX<  I ,  L2  )  *  -XLX<  L  ,  1 2  ) 

XLX< L , L 1  )  »  K LX C I ,  II  > 

XL X< L , L 2  )  •  XLX< I ,  12) 

IPLUS-I+1 

DO  300  J*IPLUS, NBEND 
4 2  »  2* J 
41  »  42-1 

X<  J,I  )«0.5*<X<4,I  )+X<I,  J)) 

XLX<  J , il  )  a  X< J  ,  I  ) 

XLX< J , 1 2  >  »  0.0 
XLX< 1 , 4 1 >  •  XLX< J ,  II > 

XLX< 1 , 42  >  «  XLX< J ,  12  ) 

M  ■  NBEND+J 

X<  M  ,  I  >a0.5*<X<M,I  )+X<  L  ,  4  )  ) 

XLX<M ,  1 1  >  »  0.0 
XLX<M, 12  )  >  X< H , I  ) 

XLX< L , J 1  )«XLX< N ,  1 1  > 

XLX<L,42)«XLX<M,I2) 

XLX<  4  ,  L 1  >»-XLX<N,  ID 
XLX< 4 , L2  )«-XLX<  N, 12) 

M2  «  2*N 
Ml  ■  M2- 1 

XLX<  I ,  M 1  )«XLX<  4  ,  L 1  ) 

XLX<I,M2)*XLX<4,L2> 

XLXC L , M 1  )  •  XLX< 1,41) 

XLX< L , M2  )  >  XLX< 1,42) 

XLX< M, L 1  )  >  XLX<4,  II  > 

XLX< H , L2  )  a  XLX<4, 12) 


i45?> 

1458) 

1459) 

1480) 

1481) 

1462) 

1463) 

1464) 

1465) 

1466) 

1467) 

1468) 

1469) 

1470) 
1471  ) 

1472) 

1473) 

1474) 

1475) 

1476) 

1477) 

1478) 

1479) 

1480) 

1481 ) 

1482) 

1483) 
1484  ) 

1485) 

1486) 

1487) 

1488) 

1489) 

1490) 
1491  ) 

1492) 

1493) 

1494) 

1495) 

1496) 

1497) 

1498) 

1499) 

1500) 
1501  > 

1502) 

1503) 

1504) 

1505) 

1506) 

1507) 

1508) 

1509) 

1510) 


302 

301 

305 

310 

320 

321 


331 


332 


333 


340 


334 


IRLA8C  NBEND  >  -  N8EN0 
ICLABC  NBEND )  >  NBEND 
IRLABCN2  >«N2 
ICLA8CN2 )«N2 

XLXCNBEND, N2-1 )  -  X<  NBEHO  /NBEND  > 

XLX< NBEND/ H2 )  -  0.0 
XLXCN2,  N2- 1 )  -  0.0 
XLXCN2/H2)  «  X( N2 / N8END  ) 

XLXC  NBEND/ N2 1  )  ■- XLXCN2 ,N2- l ) 

XLXCNBEND, N22  )  «-XLXCN2,N2> 

XLXCN2, N21  )  >  XLXC N8END / N2-  1  ) 

XLXCH2, N22  )  ■  XLXC NBEND /N2  ) 

DO  302  I *1 , N2 
DO  302  J  * i , N22 
XINC I ,  J  >  ■  XLXC 1 / J  ) 

IFC IDIAG . NE. 2  )  GO  TO  305 
DO  301  I»i / N2 
DO  301  J-1/N22 
TABLXC I ,  J  >  «  XLX< I / J  ) 

CALL  MOUTC  < T ABLX / N2 / N2 / H60 / J R , J C , I RL AB » ICL AB / L I NE / K W  ) 

IF  CJORB.EQ.O)  GO  TO  320 
WRITE  C  KW, 31 0  )  FREQ<  KJ  ) 

FORMAT  <  INI,  1PE.12.4i  36H  HZ  13  A  BENDING  RESONANT  FREQUENCY  / 
+37H  EXECUTION  HALTED/  SEE  USER'S  MANUAL. /1H1) 

CALL  EXIT 

CALL  IN VC  (N2/IERR) 

IF  CIERR.NE.O)  GO  TO  4010 
DO  321  I  *1 / N2 
DO  321  J  =  1 / N22 
ZLXCI/J  )  =  XOU< I, J  ) 

IF<  NTORS . E8 . 0  )  GO  TO  360 
DO  331  1=1, N2 
DO  331  J  =N23 / N24 
ZLXC I , J  )  =  0.0 
CONTINUE 

DO  333  I =N3/ NTBB 
IRL ABC  I  )  *  I 
I  CL  ABC  I  )  =  I 
DO  332  J  =  1 , N22 
ZLXC I / J  )  =  0.0 
CONTINUE 
L  =  I-H22 
DO  .‘33  J  =N23  /  N24 
K  =  J-N22 

ZLXCI/J  )  =  YLXCL/K) 

CONTINUE 

IF <  IDIAG .NE . 2  )  GO  TO  360 
WRITE  C  KW, 340  ) 

FORMAT  C25H1BENDING  IMPEDANCE  MATRIX/1H  ) 

DO  334  1  =  1 , N 2 
DO  334  J=1 , N22 
TABLXC I , J  )  =  ZLXC  I ,  J  ) 

CONTINUE 

CALL  MOUTC  < T ABLX , N2 , N2 , H60 , JR , J C , I RL AB, ICL AB , L I NE , K W  ) 


L 1  "  :  -i-- 
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(1511) 

(1512) 

(151?) 

(1514) 

<  1515) 

<  1516) 
(151?) 
(1518) 
(1519) 
(1520) 
( 1521 ) 
(1522) 
(  1523) 
(1524) 
(1525) 
(1526) 
( 1527) 
( 1528) 
(1529) 
(1530) 
< 1531) 
(  1532) 
<1533) 
(1534) 
(  1535) 
< 1536) 
( 1537) 
< 1538) 
( 1539' 

<  1540) 
•  1541  ) 

<  1542) 
( 1543) 
(  1544) 
(1545) 
( 1546) 

<  1547) 
(1548) 
(1549) 
(  1550) 
(  1551) 
(  1552 

(  1553; 
(  1554) 
(  1555) 
(  1556) 
(1557) 
(  1558) 
(1559) 
( 1560) 

<  1561 ) 
< 1562) 
(  1563) 
(  1564) 


360  IF  (IDIAG.NE.2)  GO  TO  3702 

WRITE  (KW/  370  )  IDENT , N T I TLE < SRPH , FRE6( k J  ), N T8 8 
370  FORMAT  ( 43H1 UNHOD  I  FI EO  IMPEDANCE  MATRIX  RECORD  SUMMARY/ 

♦ 10H0I DENT  «  i 4A4/ 10H  NTITLE  •  .16A4/10H  RPH  =  .1PE12  4, 

+3H  “2/10H  FREQ  «  ,E12.4,3H  HZ/10H  RANK  *  .13/1H  ) 

DO  3701  I* 1 i NTBB 
DO  3701  J* 1 #  N24 
TAB! X< I »  J  )  *  ZLX( I,J  ) 

3701  CONTINUE 

CALL  MOUTC  (  TABLX ,  NTBB ,  NTBB .  M60.  J  R,  JC  /  IRLAB  ,  I  CL  AB  -  LI  NE ,  Kl) ) 

3702  IF  (IRUN  EQ.O)  GO  TO  780 
FSQ«FREQ(KJ  >**2 

IF  (IRUN  CT.2)  CO  TO  42 
C  SYNCHRONISM  CHECK 

CHECK«FREQ(KJ  )-SPD 
CHECK-CH£CK*CHECKAFSC!  +  SPD*SP0  ) 

IF  (CHECK. LE . 1 . 0E-08  )  GO  TO  41 
WRITE  (KV/2000) 

2000  FORMAT  ( /60H  SPEED-FREQUENCY  DATA  ARE  FOUND  INCONSISTENT  IN  SYNCHR 
♦25H  CHECK.  EXECUTION  HALTED  ) 

CALL  EXIT 

4  1  IN'; EX  »  KSPD 

SP£ED< INDEX )  «  SPD 

IF  (IRUN.E0.2)  CENT  *  0  0063856*FSQ 

GO  TO  43 

42  INDFX  -  KJ 

C  IMPEDANCE  REVISION 

43  IF( IBRG.GT.O.OR  IRUN. LT. 2. OR  IRUN  EQ  3)  GO  TO  441 
WR I TE<  KW /  4224  ) 

4224  FORNAT<  73H  COMPLEX  EIGENVALUE  LOGIC  BEING  USED  UNNECESSARILY  FOR  A 
+  N  UNDAMPED  ROTOR  //) 

441  IF<  IBRG  GT  0  OR  IBRL  GT  0)  CO  TO  44 
DO  600  I=1,N2 
DO  600  J*l/N22 
600  XLX(I,JWLX<  1/ J) 

GO  TO  500 

44  1*1 
KBG2«0 
NTEMP*1 
NBRG  *  0 
IREV-0 
KOUNT  «  1 
K80TH  *  1 
I T I  ME  =  1 
K8RG  -  0 

IF  (IDIAG.NE.3)  CO  TO  4490 
URITE  (  KWj  170) 

WRITE  (KW,4410)  L8RG 

4410  FORMAT  ( 40H  NUMBER  OF  BAGS  ASSIGNED  IN  LEVEL  1  *,I5> 

IF  (LBRG.EQ.O)  GO  TO  4420 

WRITE  ( KW<  44 1 1 )  (K8G(1BP)/IBR*1»LBRG) 

4411  FORMAT  </24H  BEARING  STATION  NUMBERS/ 4  1 1 5 ) 

IONE  *  I 

WRITE  (KW/4412)  ( BRGST< IBR/ I  ONE ) , IBR* 1 / LBRG  ) 
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(1363)  4412  FORMAT  (2SH  RADIAL  STIFFNESS  <LB/1N),SX,1P4D1S.4) 

< 1344)  ITWO  ■  2 

(1347)  WRITE  <KW,4413)  (BRCST< I  OR, I  TWO). IBR«1 ,  LBRG ) 

USES)  4413  FORMAT  <30H  ANGULAR  87IFFNESS  C IN -LB/ RAD  >, 1P4D15 .4 ) 

USES)  4420  IF  (IBRG.EQ.O)  IFRI  »-l 
<1370)  4490  GO  TO  <44,47,43  47,43),  IRON 

<1371)  43  IF  <KJ . EQ. 1 )  GO  TO  47 

<1372)  IF  < IFRI  )  379,40,40 

<1373)  44  IF  CKSPD.EQ.l)  GC  TO  47 

<1374)  IF  < I FR I )  379,40,40 

<1373)  47  IF  <IFRI.E0.-1>  GO  TO  379 

<1374)  WRITE  < KW, 170 ) 

<137?)  40  WRITE  <KW,410)  SRFM,  FRE9< K  J  ) 

<1370)  410  FORMAT  </21H  LEVEL  2  REARING  DATA/19H  ROTATIONAL  8PEED  «,1PE11.4,4 

<1379)  +H  RFM  ,4  X,  1  INFREQUENCY  >,EU.4,3H  HZ//8H  SEARING,  2X,4<  IN*) ,  4H  TYPE 

<1300)  ♦»4< 1H*),2X,8< 1H*),3H  XX ,2< 1 X ,S< IN* ) , 1 X >, 2HXY, 2< 1 X, 8< IN*  ), 1X),2HYX, 

<1301)  ♦  2<IX,0<1MO,1X),3NYY  ,8<1H*)/25H  NO.  STN  RADIAL  ANGULAR  ,4<5X,1HK 

<1302)  ♦,10X, 1HB.3X)) 

<1303)  379  IF  < IORG . EQ . 0  )  GO  TO  370 

<1304)  C  READ  REARING  DATA  CONTROLS 

<  1303)  377  READ<  KR, 110)  LO , NBRG , KBRG , I  REV 

<1304)  370  NBO-HTEHP 

<1307)  DO  374  J«NAO, NBEND 

<1300)  JOS  -  2*J 

<1309)  J01  «  J 02-1 

<1390)  C  MATCH  STATION  NUHSER  ANO  ACTION  TYPE 
<1391)  DO  401  IZ-1,2 

<1392)  DO  401  JZ-1,2 

<1393)  401  ORGLX< I Z , JZ)  >  0.0 

<  1594)  NBRG  >  HSU) 

<  1393)  LOG  >  KS< J ) 

<1394)  J1  •  J+l 

<1397)  JTYPE-LBC-2 

<  1390)  IF  <KOUNT. GT . LBRG  )  GO  TO  410 

<1399)  KBGZ"K8G<K0UHT) 

<1400)  IF  <MBRG .HE. KBGZ )  GO  TO  410 

<1401)  !F  < JTYPE . LE . 2)  GO  TO  404 

<1402)  IF  < JTYPE-S)  404,403,402 

<1403)  402  JTYPE-JTYPE-1 

<1404)  403  I)TYFE*J  I YPF-3 

<1403)  IF  < ITINE. EQ . 2)  uC  TO  403 

<1404)  ITIME-2 

<1407)  JTYPE-JTYPE-l 

<1400)  GO  TO  404 

<  1409)  404  JTYPE«J  TYPE-2 

<1410)  GO  TO  404 

<1411)  405  ITIME-1 

<1412)  404  DO  407  !Z»1,2 

<1413)  ORGLX< IZ, 12)  -  BRGSTUCOUNT, JTYPE ) 

<1414)  DO  407  JZ>1,2 

<1413)  JZ2  •  2* JZ 

<1414)  JZ1  »  JZ2-1 

<1417)  TLX< IZ, JZ1 )  -  0.0 

<  1410)  407  TLX< IZ, JZ2  )  -  0.0 
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■  it  k  ^  **■  ,i>‘" 


(  1 « I  9  > 
( i $20 > 
<  1621  ) 
(  1 622 ) 
(1623) 
(  1624) 
(1625) 
(  1626) 
(1627) 
(1628) 
(1629) 
(1630) 
( 1631 ) 
(  1632) 
(1633) 
(1634) 
(1635) 
(1636) 
(  1637) 
(  1638) 
(  1639) 
(  1640) 
(  1641 ) 
(  1642) 
(  1643) 
(  1644  ) 
(  1645) 
(1646) 
(1647) 
(1648) 
(1649) 
C  1650) 
(  1651 > 
(  1652) 
(1653) 
(1654) 
<  1655) 
(1656) 
(1657) 
(1658) 
(1659) 
(  1660) 
(  1661 ) 
(1662) 
(1663) 
(  1664) 
(1665) 
(  1666) 
(1667) 
(1668) 
(1669) 
(1670) 
(  1671 ) 
(1672) 


If  (JTYPE.EQ. 2. OR.LBG.LT. 6)  KOUNT-KOUNT+ 1 

410  If  (HBRC.NE.NBRG)  GO  TO  375 
If  < IREV  . EG. 0  >  GO  TO  411 

If  (KBRG-l )  371,372,374 
C  ERROR  MESSAGE  fOR  ( N8RG, K8RG ) 

371  WRITE  (KW, 10)  I 

10  FORMAT  (  1H1,?<1H*>,32H  INPUT  DATA  IS  FAULTY  fOR  8RG  N0,I3,7H 
+34HK  NBRG  AND  KBRG  AGAINST  N8  ANO  K3.,?(1H*>> 

GO  TO  400 

372  If  (L8C.LT.3.0R.L8G.Efl.4.0R.L8G.£G.6)  GO  TO  371 
G  READ  8EARING  DATA 

373  RE AD( KR , 2020  )  ( ( ( ST If( IONE , I T WO , I  ) , DAMP( I  ONE , 1  TWO , I )  ), 1  TWO 

♦  *1,2),  I  ONE*  1,2) 

411  NTEMP  •  Jt 
2020  PORMAT( 8010.4  ) 

If  (IDIAG.NE.3)  GO  TO  375 
If  ( KBRG  .  EQ . 2  )  GO  TO  4802 

WRITE  (KW/  4801  )  LO  ,  NBRG ,  ( ( (  S  TI  f  (  I  ONE,  I  TWO,  I  >,  DAMP<  IONE,  ITWO, 
+  I  TWO*  1 , 2  ),  IONE*  1,2) 

4801  fORMAT  <  13, 1 4  ,  S  X , l H* , 12X, IP  8D 1 1 . 4  > 

GO  TO  4804 

4802  WRITE  (KW,4803)  LO ,NSRG , ( ( (  STI F(  I  ONE, I  TWO, I )/DAMP(  IONE,  I  TWO, 

♦  1 1"!0- 1 , 2  ),  IONE- 1, 2  ) 

4803  FORMAT  (  13 , 1  4 , 1 3X , 1H*, 4X, 1P8D 1 1 . 4 > 

4804  IPRI  *-l 
GO  TO  375 

374  IF  (LBG.LT.4.0R  LBG.E0.5)  GO  TO  371 
GO  TO  373 

375  DO  369  Kl-1,2 

L  *  NBEND*( K 1 -1 HJ 
DO  369  K*i , NBEND 
DO  369  K2- 1 <  2 
M  *  N8END*(K2-1 )+K 
M2  *  2*M 
Ml  *  M2  -  1 

XLX( L , N  1  )  *  2LX(L, Ml  ) 

XLX(L,M2  )  *  ZLXCL, M2  ) 

Iff  NTEMP  .  NE  . J  1  OR  K.NE  J)  GO  TO  369 
K22  *  2*K2 
K21  *  K22-1 

TLXCO,  K21  )  *  STIF(K1,K2,  I)-BRGLX(K1,K2) 

TLX(K1,K22)  -  OMG  +  DAMP(Ki ,K2, 1  ) 

XLX(  L  ,  H 1  >*XLX(  L  ,  M  1  )*TLX»'Kl,K2l  ) 

XLX<L  i  M2  )*XLX(  L  ,  M2  )♦  TL X*.  K  1 ,  K  22  ) 

369  CONTINUE 

IF  (NTEMP. NE  J 1  .  AND . MBRG . NE  KBGZ  )  GO  TO  376 
IF  (IPRI  NE.-l) 

♦  CALL  BRGTAB  ( KW , I , KBOTH , NBRG , KBRG , J TYPE, KBGZ, TLX , BRCL X, OMG  ) 


.  CHEC 


KBOTH-KBOTH+1 

If ( NTEMP  .  NE . J  1  OP  I  E8  IBRG 

I  *  1+1 

GO  TO  377 

CONTINUE 

CONTINUE 


GO  TO  376 


< 1673) 
< 1674) 

(  1675) 

(  1  676) 
< 167?) 
< 1678 ) 
< 1679) 
< 1680) 
( 1681) 
(1682) 
< 1683) 
< 1684) 
( 1685) 
(1686) 
(  1687) 
< 1688) 
(  1689) 
(  1690) 
( 1691 ) 
< 1692) 
< 1693) 
(  1694) 

<  1693) 

<  1696) 
(  1697) 
(  1698) 
(1699) 
(  1700) 

<  1701) 
(1702) 
(1703) 
(1704) 
(1705) 
(  1706) 
(  1707) 
(1708) 
(  1709) 
(1710) 
(1711) 
(1712) 
(1713) 
(1714) 
(  1715) 
(1716) 
(1717) 
(1718) 
(1719) 
(1720) 
(  1721 > 
(1722) 
(1723) 
(  1724) 
(1725) 
(1726) 


CALL  IS  TRP! ISO/ I8RG, ST  IF, DAMP/ IRON) 

IF!  I8RC.EQ.0 .OR .IDIAG.NE.2)  GO  TO  1000 
UR  1 TE! KU ,501 )  SPO  , FREO( KJ  > 

501  FORMA T( 50H 1C ART  ESI  AN  IMPEDANCE  MATRIX  AFTER  BEARING  REVISI0N/20H 
♦ROTATIONAL  SPEED  *,1PE11.4,3H  HZ , 7X , 1 1 HFRE8UENC Y  «,E11.4,3H  HZ / / 

DO  502  IM.NTB8 
DO  502  J*i ,N24 
TABLX!I, J)  >  XLX( I ,  J  ) 

502  CONTINUE 

CALL  NOUTC  (  TABLX,  NTBB,  NTBB, N60, JR, JC , IRLAB , I  CL AB, LI NE, KU > 

C  IMPEDANCE  MATRIX  TRANSFORMED  TO  ROTATING  COORDINATES 
C  UNDER  BOTH  ITVPE-1  AND  2 

1000  CALL  ROTATE! NBEND  ) 

URITE  (KSAVE)  SPD,  FREC(  KJ  >,  <  (  YLXC  I ,  J  ) ,  J*  I ,  N22  >,  I  *1  ,  N2  > 

IF(  IDIAG.NE.2)  GO  TO  1001 
URITE  <  KU, 1510) 

1510  FORMAT! 4  INI IMPEDANCE  MATRIX  IN  ROTATING  COORDINATES//! 

DO  503  1*1 »NTB8 
DO  503  J *1 , N24 
TABLXd,  J)  *  YLX<  I ,  J  ) 

503  CONTINUE 

CALL  MOUTC  (  TABLX , NTB8 , NT  88 , M60, J R, JC , IRLAB , I  CL  ft B, L I NE, KU  ) 

1001  IF< IRUN.E8.3)  GO  TO  380 

IF  (IRUN.EQ.2.0R.1RUN.E0.4)  GO  TO  71 
CALL  ICNRL( NBEND, INDEX, ISO, DETER, I WARN  > 

CO  TO  380 
C  RESPONSE  ORBITS 
71  DO  702  1*1, N2 
DO  702  J *1 , N22 
XI N( I , J  )  *  YLX!  I, J  ) 

702  CONTINUE 

CALL  INVC  ( N2 , 1  ERR  ) 

C  NEED  IERR  CHECK  HERE!  CHTP  OCT  31,1979 

DO  703  1*1, H2 
DO  703  J*1 , N22 
XLX(I,J  )  -  XOU(  I, J  ) 

703  CONTINUE 

C  READ  EXCITATION  CONTROLS 

IF  ( I  RUN  .  EQ . 0  )  GO  TO  380 

READ  ( KR , 1 10  )  IFORCE , IFDATA 

IF  (IFDATA .EQ .0  )  GO  TO  39 

READ  ( KR , 1 10  )  ( NFORCE<  I  ),  I«1 ,  IFORCE  ) 

HEAD  (  KR ,  1  10  )  <KFORC£(  I  ),  1*1,  IFORCE) 

39  NTFO*  1 
NF  «  0 
I  *  1 

IF  (IDIAG.NE .3)  GO  TO  72 
UR  I TECKU ,390  7  ) 

3907  FORMAT! IX, 27NEXCI TAT  ION  INPUT  DATA  CHECK ,/,  IX , 1  SHI  FORCE ,  IFDATtt 
URITE  ( KU, 110)  IFORCE,  IFDATA 
UR  I TE( KW »  390 2  ) 

3902  FORNAT! 1 X, 6HHFQRCE/ > 

URITE  ! KU, 110)  <N FORCE! IPRINT),IPRINT=1, IFORCE) 

UR  I TE( KU , 390 3  ) 
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<172?) 
(  1728) 
< 1 729 ) 
< 1730) 
< 1731) 
(1732) 
<1733) 
< 1734) 
<1735) 
<1736) 
<1737) 
<1738) 
<1739) 
< 1740) 
<1741) 
<1742) 
< 1743) 

<  1744) 
<1743) 
< 1746) 
< 1747) 

<  1748) 
<1749) 
<1750) 
<1751) 
<1752) 
<1753) 

<  1754) 

<  1755) 

<  1756) 
<1757) 
<1758) 
<1759) 
<1760) 

<  1761  ) 

<  1762) 
<1763) 

<  1764) 

<  1765) 
<1766) 

<  1767) 

<  1768) 
<1769) 

<  1770) 
<1771) 

<  1772) 

<  1773) 

<  1774) 

<  1775) 

<  1776) 

<  1777) 

<  1778) 

<  1779) 

<  1780) 


3903 


13  F0RNAT<  1 X, 6HKF0RCE/) 

WRITE  <  KW, 110)  <KF0RC£< IPRINT),IPRINT*1* IFORCE) 

NF  ■  NFQRCE<  I  ) 

KF  ■  KF0RC£< I  ) 

SEQUENCE  THROUGH  HALF-RANK 
NF0«NTF0 

00  80  J»NF0,  N8END 
J02  •  2*  J 
J01  •  J  02- 1 

IDENTIFY  STATION  NUH8ER  AND  ACTION  TYPE 
NF  «  H8<  J  > 

LF  »  K8<  J  ) 

J1  «  J+l 

HATCH  STATION  HUH8ERS 

IF  <HF. NE.NF  >  GO  TO  77 
CHECK  COMP ATI  HI L I T Y 
IF  < KF- 1  )  73,74*  76 
ERROR  NESSACE  FOR  <  HFORCE  *  KFORCE  ) 

WRITE  <  KW* 1 1 )  I 

FORMAT  <  1H1,3<1H*),34H  INPUT  DATA  IS  FAULTY  FOR  ENTRY  NO, 13, 
♦  27H  0  EITHER  HFORCE  OR  KFORCE , ,3< 1H* > ) 

GO  TO  400 

IF  <LF.LT.3.QR.LF.E8.4.0R.LF.EQ.6>  GO  TO  73 
HTF0-J1 

IF  <IFDATA.E0.0)  GO  TO  78 
READ  EXCITATION  DATA 

READ  <  KR  ,  2020  )  <  FLX(  IONE,  I  >  ,  IONE  =  1,4) 

IF  < I  RUN . HE . 2  )  GO  TO  78 
FLX<  3 , 1  )  *  0.0 
FLX< 4 , 1  )  «  0.0 
DO  79  Kl«i,2 
L  ■  HBEND*< K 1-1  )+J 
K12  *  2*K1 
Kll  a  K12-1 
L2  *  2*L 
LI  *  L2- 1 

PLX<L 1 )  *  FLX<K11,  I) 

PLX<L2>  »  FLX< K 12 ,  I ) 

IF  < I  RUN . HE . 2  )  GO  TO  79 
PLX< L 1 )  »  CEHT<<PLX<L  1  > 

PLX< L2 >  *  CEHT<<PLX<L2 > 

CONTINUE 

IF  <1  .EQ. IFORCE)  GO  TO  83 
I  «  1+1 
GO  TO  72 

IF  <LF.LT.4.0R.LF.EQ,5)  GO  TO  73 
GO  TO  75 
PLX< J01  )  «  0.0 
PLX<  J02  )  »  0.0 
PLX<H2+J01  )  *  0 .0 
PLX< H2+ J02 )  *  0  0 
CONTINUE 
JFlaJ02+l 
DO  82  J«JFl,N2 


EQ.5)  GO  TO 


<  1781 ) 

L*N2+J  * 

<  1782) 

PLX< J  >*0 .0 

<  1783) 

82 

PLX< L  )*0 . 0 

<  1784) 

IF< IPRI .N£ .-1 >  CALL  XC I TAB< KW, I T YPE , NBEND, M8, K8 , PLX ) 

(  1785) 

WRITE  <  KSAVE  )  <  PLX<  I  ),  I  *1 ,  N22  > 

<1786) 

C  COMPOTE  RESPONSE  VECTOR 

<  1787) 

IF< ITYPE.EQ.O)  GO  TO  832 

<  1788) 

C  TRANSFORM  FORCES  FROM  CARTESIAN  TO  ROTATING  COORDINATES 

<  1789) 

00  831  IK*1 ,  NBEND 

<  1790) 

I K 2  *  2* IK 

< 1791 > 

IK  1  *  IK2-1 

<  1792) 

LK1  *  N2+IK1 

< 1793) 

LK2  *  N2+IK2 

<  1794) 

WLXC IK1  )  *  0 . 5*<PLX< IK1 >-PLX<LK2 ) ) 

< 1795) 

WLX< IK2  >  *  0 . 5*<PLX< IK2 >+PLX<LKi  ) > 

<  1796) 

WLX<  LKl  )  *  0 . 5*<PLX<  IK1  >+PLX<LK2  )  ) 

<1797) 

WLX<  LK2 )  *  0 . 5*<PLX< IK2  )-PLX<LKi  >  ) 

<  1798) 

PLX< IK1 >  «  WLX< IK  1 ) 

$ 

t 

“ 

<  1799) 

PLX<  IK2  )  *  WLX<  IK2) 

< 1800) 

PLX<  LKl  )  *  WLX<  LK  1  > 

r 

<  1801 > 

PLX< LK2  )  *  WLX<  LK2  ) 

f 

< 1802) 

831 

CONTINUE 

< 1803) 

832 

DO  84  1*1, N2 

| 

<  1804) 

12  *  2*1 

i 

<1805) 

11  *  12-1 

<  1806) 

WLX<I1)  *  0.0 

<  1807) 

WL X< 1 2 )  *  0.0 

* 

<1808) 

DO  84  J  *  1 , N2 

* 

<  1809) 

J2  *  2* J 

i 

<  1810) 

J1  *  J2-1 

T 

<1811) 

WLX<  1 1 )  *  XLX< I ,  J  1  >*PLX<.<  i >-XLX<  I ,  J2  >*PLX<  J  2  >  +  WLX<  It 

J 

<1812) 

WLX<  I  2  >  *  XLX<  I ,  J  1  )*PLX<J2)*XLX<  I,J2)*PLX<J1)*ULX<  12 

Ik 

<1813) 

84 

CONTINUE 

7 

<1814) 

IF  <IDIAG.NE.3)  GO  TO  1010 

<1815) 

UR  I TE<  KU , 3904  ) 

<1816) 

3904 

FORMATS IX, 20HRESP0NSE  D IAGNOST ICS/1  X, 1 4HEXC  I  T  ING  FOR i 

<  1817) 

WRITE  <  KU,  1002 )  < PLX< I PRI NT  ) , I  PR  I HT *1 , N22  ) 

J 

<1818) 

WR I TE< KW , 3905 > 

? 

<  1819) 

3905 

FORMAT< 1 X, 30HRESP0NSE  DUE  TO  EXCITING  FORCE/) 

> 

<  1820) 

WRITE  <  KU,  1002)  < WLX< I  PRINT  ) , IPR INT*1 , N22  ) 

at 

<  1821  ) 

1002 

FORMA T< 10E12.3/10E12.3) 

? 

<1822) 

DO  81  1*1 , NTBB 

if 

<  1823) 

DO  81  J* 1 , N24 

| 

<1824) 

TA8LX< I , J  )  *  XLX< I,J  ) 

|v 

<1825) 

81 

CONTINUE 

1 

< 1826) 

CALL  HOUTC  < TABLX , NTBB, NTBB , M60, JR, JC , IRLA8 , I CLAB, LI 

6' 

<  1827) 

C  COMPUTE  ORBIT  PARAMETERS 

iec. 

g 

<  1828) 

1010 

DO  85  1*1, NBEND 

| 

<  1829) 

12  -  2*1 

f-r 

<1830) 

11  »  12-1 

fe 

fc 

<  1831 ) 

L  u  NBEND* I 

1 

<  1832) 

L2  «  2*L 

1 

<  1833) 

LI  ■  L2-1 

1 

<  1834) 

85 

CALL  ORBIT<ITYP£,BIG<I >,$NALL< I),SLANT<I  ),PHAS£<  I), 
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<1835) 
C 1836) 
<1837) 
( 1838) 
< 1839) 
(1840) 

<  1841  ) 
<1842) 
<1843) 
<1844) 

<  1845) 
(1846) 
< 1847) 
<1848) 
<1849) 
< 1850) 
< 1851 > 
<1852) 
<1853) 
< 1854) 
<1855) 
<1856) 
<1657) 
< 1858) 

<  1859) 
<1860) 
< 1861  ) 
<1862) 
< 1863) 

<  1864) 
<1865) 
<1866) 

<  1867) 
< 1868) 
<1869) 
< 1870) 
< 1871  ) 
<1672) 
<1873) 
<1874) 
< 1875) 
<1876) 
< 1877) 
< ,678) 
<1879) 
( 1880) 
< 1881 ) 
< 1882) 
<1883) 

<  1884  ) 

<  1885) 
(1886) 


♦  ULX<  It  >  /  WLX<  12  ),  WLX<  L  1  ).  81X0.2)) 

C  WRITE  PART  II  OF  &YDSYN  OUTPUT 

10R8  «  1 

CALL  OR BTAB<KU, NBEND, M8,K8, SRPM, FREQ<  KU  ), 8 IG, SMALL , SLANT, 

♦PHASE, POSIT, I  ORB ) 

380  CONTINUE 

IF  < NBEND , EQ . 0  >  GO  TO  400 
READ  <10)  <K9<! >, I®1, NBEND) 

I F< IRUN-3)  390,386*385 
3B6  CONTINUE 

UR  I TE<  KU , 382  >  SRPM 

382  FORMAT  <  45H1  UNDAMPED  ASYNCHRONOUS  STIFFNESS  DETERMINANTS*' 

+  19H  ROTATIONAL  SPEED  «,1PE11.4,4H  RPM/ ) 

IF  (ISQ.EQ.i:  GO  TO  383 
URITE  <  KU,  387  ) 

387  FORMAT  (/ION  FREQUENCY , ?X , 6<  1H*  ),  1 4 H  DETERMINANTS  *7<1 H*>/ 

♦  7H  (HZ), 12X,?HC0  -RO T , 9X, 7HCTR-R0T  ) 

GO  TO  384 

383  WRITE  <  KU,  388  ) 

388  FORMAT  </10H  FREQUENCY , 6X , 1 1 HDET ERM IN ANT /7H  <  HZ), 1 IX, 7HC0UPLED) 

384  CALL  ASNTAB<KU,NFREQ,IUARN, FREQ  DETER, ISO) 

C  INTERPOLATION  FOR  ASYNCHRONOUS  RESONANCE 

CALL  £NTER<  KSAVE, KEEP, KU, NBEND , NFREQ, I  SO , DE TER, FREQ, SPEED, 

♦  RET.XINT,  IRUN,  ID  I  AG  ) 

GO  TO  390 

C  STAeiLnv-HARGIN/DAMPED  RESONANCE 

385  IF  (IGEN.EQ.O)  GO  TO  390 

CALL  KRAUTE< NFREQ, NBEND, KSAVE, KEEP, KU, I T VPE , I  SO , FREQ , SPEED , I  RUN , 
+TA8LX,PLX,ULX, BIG, SHALL, SLANT, PHASE, IDIAG) 

390  CONTINUE 

399  CONTINUE 

IF  < I  RUN . LE . 0  )  GO  TO  400 
IF  < I  RUN-2  )  391,394,400 

391  UR  I TE<  KU , 392  ) 

392  F0RHAT<28H1CRITICAL  SPEED  DE TERM  I  HANTS// 1 6 H  SPEED  (RPM) 
♦IIHDETERHINAHT) 

CALL  SYNTAB<  KU, NSPD, IUARN , SPEED, DETER , ISO ) 

C  CRITICAL  SPEED  AND  UNBALANCE  RESPONSE  INTERPOLATION 

CALL  ENTER< KSAVE, KEEP, KU, NBEND, NSPD, ISO, DETER, SPEED, FREQ, 

♦  RET, XI NT, IRUN, IDIAG  ) 

GO  TO  400 

C  UNBALANCE  RESPONSE  AT  RESONANCE 
394  IF  (IGEN.EQ.O)  CO  TO  400 
KTYPE  »  0 

CALL  KRAUTE<  NSPD, NBEND , KSAVE , KEEP ,KW, KTYPE , ISO, SPEED , FRE8 ,  IRUN , 
♦TABLX/PLX, WLX,8 If, SMALL, SLANT, PHASE, IDIAG) 

400  CONTINUE 
4005  RETURN 

4010  WRITE  ( KU, 401 1 ) 

4011  FORMAT  < 50H1 INVERS ION  OF  A  SINGULAR  COMPLEX  MATRIX  ATTEMPTED!) 

GO  TO  4005 

ENO 
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(  188?) 
(1888) 
<1889) 
< 1890) 
( 1891 ) 
(1892) 
(1893) 
(1894) 
(1895) 
(1896) 
(1897) 
(1898) 
( 1899) 
< 1900) 
( 1901  ) 
(1902) 
(1903) 
(1904) 
(1905) 
(1906) 
(1907) 
(1908) 
( 1909) 
( 1910) 
(1911) 
(1912) 
( 1913) 
( 1914) 
( 1915) 
(1916) 
( 1917) 
(1918) 
(1919) 
(  1920) 
( 1921 ) 
( 1922) 
( 1923) 
(1924) 
(  1925) 
(1926) 
(1927) 
(1928) 
(1929) 
< 1930) 
(1931) 
(1932) 
(1933) 
( 1934) 
(1935) 
(1936) 
(1937) 
(1938) 
(1939) 
(1940) 


SUBROUTINE  SPLI NE( HI , NP , RET , XI NT . X, Y, 2 , KW , I EP  > 

C  NI  RUN  CONTROL  -  <0  OBTAIN  SPLINE  COEFFICIENTS 

C  0  LOOK  FOR  ROOTS 

C  100  LOCATE  WELL 

C  OTHERS  NUN8ER  OF  INTERPOLATION  POINTS 

C  ON  RETURN  -  NUMBER  OF  ROOTS  FOUND 

C  NP  NUMBER  OF  GIVEN  DATA  POINTS,  MUST  NOT  EXCEED  11 

C  XINT  X  VALUES  TO  BE  INTERPOLATED  OR 

C  SLOPE  AT  ROOTS 

C  RET  Y  VALUES  FROM  INTERPOLATION  OF  GIVEN  X'S 

C  X  VALUES  OF  COMPUTED  ROOTS 

C  ARRAY  SI2E  MUST  8E  AT  LEAST  11  IN  THE  CALLING  PROGRAM 

C  X  X  DATA  VALUES 

C  Y  Y  DATA  VALUES 

C  Z  SPLINE  COEFFICIENTS 

C  KW  OUTPUT  DEVICE  NUM8ER 

C  IER  DIAGNOSTIC  CONTROL 

C  0  -  NO  PRINTOUT 

C  1  -  PRINT  ONLY  ANSWERS 

C  2  -  FULL  DIAGNOSTIC  PRINTOUT 

C  ON  RETURN  -  ERROR  STATUS 

C  0  -  NO  ERRORS 

C  1  -  VALUE  FOR  INTERPOLAT ION  OUT  OF  BOUNDS 

C  2  -  ITERATION  ERROR 

C  DCB'S  MODIFICATIONS  ADDEO  MAY  23,  1979  BY  CHTP 
C 

INTEGER  0 

DIMENSION  XINT(  1),RET<  1  ),X(  1  >,Y<  1  >,  Z(  3, 1  ) 

DIMENSION  D(2,2),D1(2,2),D9(2,2),E(2),EI(2),E9(2>, 

+  R1( 20,2  ),R2( 20) 

NPM  *  NP-1 

IF  (NI.NE. 100)  GO  TO  2000 
2000  IPR-IER 
IER-0 
1-0 

D<  1  , 1  >«  1  . 

D(  1 , 2  )*0  . 

D(  2, 1 >«0  . 

D(  2 , 2  >•  l  . 

E( 1 >«0. 

E(2)«Q. 

D1<1,1 >*-2  . 

D1 <  2, 2>*“2 . 

El(2)*l . 

Ill  I-I  +  l 

IFLAG-l 
GO  TO  720 

120  DO  124  11*1,2 
00  124  12-1,2 
D9(  11,12  )«0 . 

DO  124  13-1,2 

124  D9<  II, I2)«D9( 11,12)  +  D 1( 1 1 , 13 >*D( 1 3, 1 2 ) 

D(  1,1  )«09< 1, l  ) 

D(  1 ,2  >-D9<  1,2) 
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<1941)  D<  2, 1  )«D9<2,  1  > 

<  1  942)  D<  2 , 2  )*D9<  2,  2  ) 

< 1943)  GO  TO  710 

<1944)  131  IF< I .LT .NP-l >  GO  TO  111 

(  1945)  Yl*  -< 1 . /D< 2 , 1 > >*E< 2 > 

< 1946)  IF<  NI-0  )  300,300, 140 

(1947)  140  12*0 

(1948)  N«£LL*0 

<1949)  IF( HI . HE . 1 00 )  GO  TO  141 

(1950)  1*1 

<1951)  TANK* 1 . QE+5 

<1952)  X1*0.0 

<  1 953  )  IFLAG*5 

<  1954)  E<  1  )*Y1 

<  1955)  E<  2  )*0 . 

<1956)  GO  TO  730 

<1957)  143  12*0 

<  1958)  IF  <1  .EQ.NPH)  GO  TO  747 

< 1959)  GO  TO  720 

<1960)  145  11*1 

<1961)  Bi *E<  2  )/Y3 

<  1962)  A1 *2 . *E<  1  )/Y3 

<  1963)  Cl *81 *8 1 -A  1 

<  1964)  IF<  Cl .LT .0  , )  GO  TO  143 

<  1965)  C2*SQRT <  Cl  ) 

<1966)  XQ*-R 1+C2 

<  1967)  IF< XQ .LT .0 .0  )  GO  TO  143 

<  1963)  146  RET<  1  )*X<  I  HXG 

<  1969)  IF<RET<  1  ).GE.X<  1+1  ))  GO  TO  147 

<  1970)  T9  =  E<  2  )+ Y3*X8 

< 1971)  IF<  T9  .  LT  .  0 .  )  GO  TO  147 

<1972)  NWELL=1 

<1973)  NI*NWELL 

<  1974)  Y1*Y< I )  +  XQ*<  E< 1  )+XQ*<0 . 5*E<  2  )+X8*Y3/6 .  >) 

<  1975)  IF<  Y1 -0 . 0  )  147,147,50 

<  1976)  50  I F  <  Y 1 .GT.TAHK.OR.RETCl  ).LT.X<1  ). OR. RE TCI  ).GT.X<NP))  GO  TO  14 

<1977)  TANK*Y1 

<  1978)  XI  *f<ET<  1  ) 

<1979)  GO  TO  147 

<  1980)  74?  IF< XI .LT ,X(1  )  .OR. XI . GT . X< HP  )  >  GO  TO  700 

<1981)  RET<  t  )*X  1 

<  1982)  Y1  '’TANK 

< 1983)  GO  TO  700 

<  1984)  147  XF< 12 . EQ . 2  >  GO  TO  143 

< 1 985 )  12*2 

<1986)  Xfl*-81-C2 

<1987)  GO  TO  146 

<1988)  141  DO  270  INDEX«1,NI 

<  1989)  XS*XINT<  INDEX > 

<1990)  1*0 

<1991)  IF<XS.GE.X<1  ).AND.XS.LE.X<NP))  GO  TO  210 

<  1992)  IF  < I  PR . GT . 0  )  WRITE  <KW,200)  X< 1  ), X< NP  ), INDEX , XS 

<1993)  200  FORHAT  <X25H  DATA  PASSING  ERROR.  LOW*  ,E16.8,12H  HIGH* 

<1994)  +E16.9,8H  AT  ,I2,9HX  VALUE*  ,E16.8) 


« „yjMb  ij  ■ 


< 1 995  > 

U#»l 

(1996) 

CO  TO  700 

< 199?) 

210 

I«I  +  1 

U998) 

IF  <1  .EQ.HP)  CO  TO  220 

< 1999) 

IF  <XS.GE.X< I > >  CO  TO  210 

<2000) 

220 

K»  I  - 1 

<  2001  ) 

I«0 

<  2002) 

£< 1 >»Y1 

<  2003) 

E<  2  )«0. 

(2004) 

230 

I«  I  ♦! 

<  2009) 

IFLAG-2 

(2008) 

IF  <1  EC  K)  CO  TO  260 

<  2007) 

GO  TO  720 

<  2008) 

260 

GO  TO  730 

<  2009) 

261 

YS»  Y< I >*<XS-X< I  ) )*E< l>  +  0. 5*< XS-X< I)  >**2*E<  2 )+ 

< 2010) 

♦  < 1 . /6 . )*<X$-X< I ) )  **3*Y  3 

<2011) 

RET< I NDEX )*YS 

<2012) 

Z<  1,1  )*£<  1  ) 

<2013) 

Z<  2 , 1 >»  0 . 5*E<  2  > 

(2014) 

Z<  3, I  )•  Y3/6  . 

(2015) 

IF  (IPR.CT.O)  WRITE  <KW,264>  INDEX, XS ,  YS 

i 201 6) 

264 

FORMA  1  < SX, 13, 3X, 29HTHE  INTERPOLATED  VALUE  AT  X  =  ,E16.8, 

<  2017  ) 

+  4H  IS  , E16 . 8  3 

<2018) 

270 

CONTINUE 

<2019> 

GO  TO  700 

«.  2020) 

C 

ROOT  FINDING 

<  2021  ) 

300 

1*0 

<  2022) 

DO  3003  IC*i,ll 

<  2023) 

300  3 

RET'.  3  C  ;  =  0 . 0 

< 2024) 

RETC  n=o  .0 

<  2025) 

RE  T<  2  >*0  0 

<  2026  > 

RE T < 3  )  =  Q  0 

i 2027 ) 

RET <4  )  =  0  0 

<  2023  / 

R 1  <  1  ,  1  >  =  X<.  1  ) 

( 2029 / 

R 1  <  1 , 2  >  *  Y<  1  > 

< 2030) 

E<  1  )  =  Y 1 

<  2031  ) 

E< 2 )  =  0  . 

' 2032  ' 

J=1 

<  2033 ) 

3  10 

1=1+1 

< 2034 ) 

!FLAG=3 

<  2  03  5  > 

IF  <1  lT.NP?  GO  TO  730 

<  2  03  6  ) 

IF  <NI  LT  0)  GO  TO  700 

< 2037 ) 

GO  TO  470 

<  2038) 

321 

2 <  1  ,  I  >*£t  1  > 

<  2039) 

Z< 2 . 1  )  =  0  5*t< 2) 

t.  204  0  ) 

2<  3, 1  ;=Y3/6 

<  2041  / 

IF  <  N I  LT.O)  GO  TO  720 

'  2042  ' 

A*  Y3/2 

<  2043; 

B  =  E<  2  )-X<  I  )+  Y3 

<  204  4  ) 

C=E<  1  )-X<  I  )*E<2  )+0  5*X<  1  )**2*Y3 

<  204  5  / 

IF  1  S  8R  T i <  A*  X  (  I  +  1  »»*2'*+2  +  <8  +  X«.  1+1  '/•'■+2>/SQf?T<<.p*X<l  +  l>*  +  2>**2 

<  2046  ) 

+  +  <  B  +  \  <  I  +  i  ;  /  +  +  2  +  C  +  +  4'  /  .  L T  0  00))  GO  TO  720 

<2047) 

IF  <  AB5<  A+X<  T  +  1  )*  *2  'SGPT«  <  A  +Xi  I  ♦  I  >**2  )#*2 

<  2  048  > 

J-  9  I  *  i  /  '+  *:+<>  *-2)  j  T  0  00!)  GO  TO  360 

I 
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i 


<  2049 ) 

Z2«-C7P 

,  < 

<  2050) 

CO  TO  420 

( 2051 ) 

360 

ZZ*B**2~  1 .  +0*C 

( 2052) 

IF<  2Z  .  L  T  .  D  .  )  GO  TO  720 

<  2053) 

Z1«-B-3QR<22  ) 

<  2054) 

Z?.-B  +  SQRUZZ  > 

<  2055) 

Z1=Z1/<2.*A> 

<  2056) 

Z2*Z27<  2  .  *A  > 

<  205?) 

IF  <2l.LT.X<  I  l.OR.Zi  .GT.XU  +  1))  GO  TO  420 

<  2056 ' 

XS*Z1 

<  205. 

YS*Y<  I  >+<XS-X<  I  ))*£<  1 >  +  0 . 5*<  XS-X<  T>>**2*£<  2  >+ 

* 

< 2060) 

+  <1  .76. >*<XS-X<I >>**3*Y3 

} 

<2061) 

IF  <Rl<J,2)*YS.LE.0.0)  GO  TO  410 

J 

<2062) 

IF  <J  .GT  .  1  )  GO  TO  420 

<2063) 

J®0 

<2064) 

410 

J-J  +  l 

i 

(2065) 

Rl<  J,  1 >*Z1 

i 

<  2066) 

R1  <  J  ,  2  >*  YS 

<  2067) 

420 

IF  <22.LE.X< I >  OR . 22 .GT ,X< I+t > >  GO  TO  720 

i 

& 

<2068) 

XS*Z2 

<  2069) 

YS«Y< I >*<XS-X< I >>*E< 1 >  +  0. 5*<  XS-X< I >  '**2*E\ 2  >♦ 

<  2070) 

><1.76. >*<XS-X< I >)**3*Y3 

i 

<  2071  ) 

IF  <P1< J,2>*YS.LE.O.  )  GO  TO  450 

3t 

<  2072) 

IF  <J .GT.l  )  GO  TO  720 

1 

<2073) 

o-'O 

| 

<2074) 

450 

J*  J  +  1 

i? 

<2075) 

R1  <  J , 1 >  =  Z2 

* 

<2076) 

Rl< J,2)*YS 

<2077) 

GO  TO  720 

< 

<2078) 

4  70 

IF  <R1<J,2)*Y<NP).GT.0.  )  GO  TO  480 

\ 

<2079) 

J  *  J  +  1 

7 

x 

<2080) 

Rl< J, 1 ) 3  X<  NP  ; 

f 

3 

<20f 1 ) 

R1  <  J  ,  2 )* Y< NP  ) 

jT 

5, 

<  2082) 

480 

IF  ( I PR . LT . 2  )  GO  TO  490 

(2083) 

DO  481  11*1, d 

<  2084) 

481 

WRITE  <  KW,  482  )  R1 < 1 1 , 1  )  , fi  1< I  1 , 2  ) 

<2085) 

482 

FORMAT  (5X,E16.8,5X,E16.8> 

9 

<2086) 

490 

0*0 

l 

<  2087) 

IF  <  J . E8 . 1  )  GO  TO  532 

j- 

<2088) 

IUP*d-l 

b' 

<  2089) 

DO  520  1*1, IUP 

if 

<2090) 

IF  <R1< 1+1,1 ) ,NE.R1< I, 1 >)  GO  TO  510 

i 

<2091) 

0*0  +  1 

<2092) 

GO  TO  520 

<  2093) 

510 

R2< I-0)*R1< 1  +  1, 1 >-Rl< 1  +  1 , 2>*<R1< 1  +  1 , 1  )-Rl< I , 1  ))7<R1< 1+1 ,2  ) 

li¬ 

<2094) 

+  -R 1 < 1 ,2  )  ) 

fe 

<2095) 

520 

CONTINUE 

1- 

% 

<2096) 

IF  UPR.LE.t  )  GO  TO  532 

<  2097) 

IUP-J-t -0 

& 

<2098) 

00  531  11*1, IUP 

4r 

<2099) 

531 

WRITE  <  KW,  482  )  R2<  11  ) 

<2100) 

532 

NI*J-0-l 

! 

<2101) 

IF  (NI.LE.O)  GO  TO  700 

| 

<2102) 

DO  690  17*1, NI 

j 

I: 

It 
)  ■ 
\ 

*4 


\ 


*3i&S?2? 


&£3SR*MaSS*k . 


(2103) 

(2104) 

(2105) 

540 

(2108) 

(2107) 

(2108) 

561 

(2109) 

(2110) 

(2111) 

(2112) 

570 

(2113) 

(2114) 

(2115) 

580 

(2116) 

(2117) 

(2118) 

(2119) 

590 

(2120) 

( 2121  ) 
(2122) 
(2123) 

621 

(2124) 

(2125) 

(2126) 

(2127) 

(2128) 

(2129) 

(2130) 

632 

( 2131  ) 
(2132) 
(2133) 

C 

(2134) 

(2135) 

(2136) 

(2137) 

633 

(2138) 

(2139) 

(2140) 

C 

<  2141  ) 

634 

(2142) 

(2143) 

(2144) 

(2145) 

660 

(2146) 

(2147) 

(2148) 

680 

(2149) 

690 

(2150) 

700 

(2151) 

(2152) 

C 

(2153) 

710 

(2154) 

(2155) 

(2156) 

714 

XS-R2U7) 

OLDOX-1 . OE-25 
1-0 

IF  <  XS  .  G£  .  X( 1 > . AND  X$.LE.X(NP>>  GO  TO  570 
IF  (IPR.GT.O)  WRITE  <KW,56l)  X( l  ) , XS, X< NP > 

FORMAT  <24H  ITERATION  ERROR  X<  1)*  ,  El  6  8,4H  XS  ,E16.8,?H  XCNP 
♦E1S.8) 

1ER-2 
GO  TO  700 
i«i+i 

IF  (I.EQ.NP)  GO  TO  580 
IF  <XS.GE.X< I >>  GO  TO  570 
K-I-i 
1*0 

E<  1  >*  Y1 
E<2)-0 
I*I  +  t 
IFLAG*4 

IF  <1  .  NE  .  K  >  GO  TO  720 
GO  TO  730 

Y$*Y< I )  +  <X$-X(I >>*E(  1 >  +  0. 5*<XS-X< I >  >**2*E(  2  )  + 

+  <  1  . /6 . >*<X$-,'(( I  >)**3*Y3 
St»E(  1 >  +  <XS-X( I >>*E( 2)  +  0  5*<  XS-Xf  I )  >**2*Y3 
S2*E<  2  )♦< XS-X< I ))*Y3 
IF  <ABS<S1  ).LE. 1  OE-15)  GO  TO  660 
X9*XS-YS/Sl 

IF  (IPR.GT.l)  WRITE  <KW,632>  XS,X9,YS,Sl 
FORMAT  <  4<  5X , El  6 . 8  )  > 

CHECK X=0  001*A6S(0lDDX) 

IF  <ABS< XS-X9  ). LE . CHECKX  )  GO  TO  660 
ADDITION  <  DCB > 

IF(X9.GE.R1< 17/ 1))  GOTO  633 
XS  «=  R 1  <  17,  1  ) 

GOTO  540 

IF<  X9  .  LE  .  R  1<  I  ?♦  1 .  1  > ">  GOTO  634 
XS  =  R1 < I  7  +  1 , 1  ) 

GOTO  540 

END  ADDITION  <  DCB  ) 

0LDDX*XS-X9 

Y9*YS+S1*<  X9-XS  )+(  S2,'2  .  )*<  X9-XS  )  +  *2  +  (  Y  3,‘6  )*(  X9-XS  >♦  +  3 
XS  =  XS-YS*( X9-XS  )7<  Y9-YS  > 

GO  TO  540 
RET< I  7  )*XS 
XI NT<  17  )»Si 

IF  (IPR.GT.O)  WRITE  <KW,680>  I7,XS,S1 

FORMAT  ( 5X , 1 3H  ROOT  NUMBER  <12, 4H  AT  -E16  8.9H  SLOPE  =  ,E1 6.S 

CONTINUE 

CONTINUE 

RETURN 

MAT  E9*D  1*E  AND  MAT  £=E9+E1 
DO  714  11*1,2 
E9(  ID-0.0 
DO  714  12*1,2 

E9< II  )  =  E9< II  )+D  1( I  1,  12  )*E< 12  > 
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l 

f 

S 


(2157) 

E< 1 )-E9< 1 >+E  1  <  1  ) 

<  2158) 

E<  2  >*£9<  2>+£l<2  > 

<  2 159  > 

CO  TO  < 131<230<310<9 90* 728)* IF LOG 

<  2160) 

C 

SUBROUTINE  *2 

<  2 16  i  ) 

720 

VAL«X< !♦! >-X< I > 

<2162) 

Dl<  l/2)--.9*VAL 

<2163) 

Dl<  2/  1 )«-6 .  /VAL 

<2164) 

El<  l  >— Dl<  1/  2  > 

<2169) 

El <  2 )-l  .0 

<2166) 

DO  726  11-1/2 

<2167) 

726 

El< 11 >-El< 11 )*<  6. *< Y< I  +  l >“V< I >  >7 VAL**2 > 

<2168) 

GO  TO  < 120/710/ 710/710/ 710)/ IFLAG 

<2169) 

C 

SUBROUTINE  *3 

<2170) 

728 

I-IM 

<  2171 ) 

730 

VAL-X< I  ♦  1  )-X< I > 

<2172) 

Y3-<Y<I*1  )-Y<  1  >  >- VAL*E<  1)-Q.9*VAL**2*E<2) 

<2173) 

Y3-6 . *Y3/VAL**3 

<2174) 

GO  TO  <131/261/321/621/ 149)/ IFLAG 

<2179) 

END 

<2176, 
<  217?) 
(2178) 
(  2179) 
<2180) 
(  2181 > 
(2182) 
(2183) 
(2184) 
(2185) 
(2188) 
(2187) 
( 2188) 
(2189) 
(2190) 
( 2191 ) 
( 2192) 
(2193) 
(2194) 
(2195) 
(2196) 
(2197) 
(2198) 
(2199) 
( 2200) 
( 2201) 
( 2202) 
( 2203) 
( 2204) 
( 2205) 
( 2206) 
( 2207) 
( 2208) 
(  2209) 
(2210) 
(2211) 
(2212) 
(2213) 
(2214) 
(2215) 
(2216) 
(  2217) 
(2218) 
(2219) 
( 2220) 
(  2221  ) 
(2222) 
(  2223) 
(2224) 
(2225) 
(2226) 
(2227) 
(2228) 
(2229) 


SUBROUTINE  PINVC(  1D,KW,N,NA.NB,IS,IROT,TAELX,J0IAG  > 


c 

TABLX 

INPUT  COMPLEX  MATRIX 

C 

REPLACED  BY  ITS  INVERSE  UPON  RETURN 

*■* 

V 

ID 

0 

CALCULATE  DETERMINANT 

DLX  ONLY 

c 

r 

1 

PERFORM  INVERSION  AND 

CALCULATE  DETERMINANT 

L 

c 

AO 

BO 

A1  61 

C 

TABLX  « 

I  N  V(  TABLX  ) 

St 

c 

CO 

DO 

Cl  D 1 

C 

C0MM0H/8MAT7XLX<6Q,12O  ),YLX<60, 120>,ZLX(  60-120), 

*XHALF( 20,40), YHALF( 20, 40  ) , 2HALF(  20 , 40  > , GHAL F(  20 , 40  ) 
C0HM0N/BINV/*XIN(60, 122 >,XOU(  60. 122  ),DLX( 2),  IROIK  61  >,  ICOL(  61  > 
DINENSIOH  TABLX (60,1  ) 

DIMENSION  SUMX( 2 ) 

I«»0 

N2  *  2*N 

M60-60 

M20*20 

JR*1 

LINE«0 

IF  (JDIAG.NE.5)  GO  TO  105 
DO  100  1*1 , N2 
IR0W(  I  )  *  I 
ICOL(  I  >  *  I 
100  CONTINUE 

WR I TE( K W ,9876  ) 

9876  F0RMAT(7/1?H  SUBROUTINE  PINVC//) 

CALL  N0UTC(TABLX,N2,N2,N60, JR, JR, IROW , ICOL , L I NE , KW > 

105  DO  160  L*  1,2 

IF  (ID  -  1  )  1 10,130, 190 
110  IF  (IS  .EQ.  1  )  GO  TO  130 

IF  (IROT  .NE.  L)  GO  TO  160 
130  HB*  (L-l  )*N 
N62  *  2*HB 
IB*  (2-L)*N 
182  *  2*18 

C  FOR  L  *  1  2 

C  SET  UP  AO  DO 

DO'  140  I*  1 ,  N 
10*  I+MB 
DO  140  J*  1 ,  N2 
JO*  J+MB2 

XI N( I , J  )*  TABLX( 1 0 , J 0  > 

140  CONTINUE 

C  FOR  L  »  1  2 

C  INVERT  AO  DO 

IF( JDIAG.EQ.5)  CALL  MOUTCC X I N , N, N , H60 , JR , J R , I RO V , I  COL , L INE , K U ) 
CALL  INVC( N, I  ERR ) 

DRE  •  DLX(  1) 

DIM  *  DLX(  2 ) 

IF  (JDIAG.NE.5)  GO  TO  1405 
DO  1402  1*1, N2 
IROW(I)  -  I 
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<2230)  ICOLU;  -  I 

(2231)  1402  CONTINUE 

(2232)  CALL  NOUTC< XOU, N, N , N60 , JR , J R , I  RON , I  COL . L INE . KW > 

(2233)  MR  I TE( KW , 1 100  )0LX(  1 ) ,  DLX(  2  > 

(2234)  1100  F0RHAT(13H  DETERN I NANT* , 1  PE  1 3 . 6, 1 H, ,1PE13  6) 

(2239)  C  FOR  L  -  1  2 

( 2236 )  C  STORE  INV(AO)  INV(OO) 

(223?)  1403  00  1410  1*1, N 

(2238)  DO  1410  J*1,N2 

(2239)  YHALF(I,J>  «  XOU(  I ,  J  > 

(2240)  1410  CONTINUE 

(2241  )  IF  (IS  EQ.l  )  CO  TO  149 

(2242)  IF  (IERR.NE.O)  MR  I TE( KM , 1 000  ) 

(2243)  C  FOR  L  ■  1  2 

(2244)  C  STORE  A1  01  FOR  ISOTROPIC  CASE 

(2249)  00  142  1*1, N 

(  2246)  IO-I+HB 

(2247)  DO  142  J»1,N2 

(2248)  J0-J+NB2 

(2249)  142  TABLX(IQ,JO)*YHALF<I.J> 

(2230)  IF( JO  I AG  EG  5)  CALL  HOUTC( YHALF , N ,N , H20 JR . JR • I  ROM - l COL , L I NE - KW  ) 

(2251)  GO  TO  160 

(2252)  C  FOR  L  «  1  2 

(2253)  C  NULL  TEST  OF  OET(AO)  DET<  DO  > 

(2294)  145  IF  < I  ERR  . EO .  0)  GO  TO  150 

(2233)  IF  < L  EG.  1  )  IW*1 

(2236)  IF  (L.EQ.l  OR.IW.EQ.O)  GO  TO  160 

(  223?)  WRITE  <  KW, 1000) 

(2238)  1000  FORMAT  (1H1.45H  ILL-CONDITIONED  MATRIX  ENCOUNTERED  IN  PINVC  ) 

(2259)  CALL  EXIT 

(2260)  C  FOR  L  *  i  2 

(2261)  C  SET  UP  CO, 80  80, CO 

(2262)  150  DO  170  I*  1,N 

(  2263)  10*  I ♦ 1 8 

(2264)  1 1  *  1  + MB 

( 2265)  DO  t?0  J*1 ,N2 

(2266)  JO*  J  +  IB2 

(2267)  Jl*  J+HB2 

(  2268)  XHALF< I , J  )*TABLX( 10, Jl  ) 

(2269)  170  ZHALF(I , J)*TABLX( II, JO) 

(2270)  IF  (JDIAG.NE.5)  GO  TO  1710 

(  2271  )  CALL  H0UTC(XHALF,N,N,H20, JR, JR , I  ROW , I  COL , L I NE , K W  ) 

(  2272)  CALL  HOUTC< ZHALF, N ,M , N20, JR , JR , I  ROW , I  COL , L I NE , K U  ) 

(2273)  C  FOR  L  *  1  2 

(2274)  C  CALC  CO*INV(AQ>  BO*INV(DO> 

(2275)  1710  DO  171  1*1, N 

(  2276)  DO  171  J  =  1  , N 

(2277)  J2  *  2* J 

(2278)  Jl  *  J2-1 

(  2279)  SUMX( 1  )  =  0  0 

(  2280)  SUHX( 2  )  =0.0 

(  2281  )  DO  169  K*1 ,N 

(2282)  K2  *  2*K 

(2283)  K1  =  K2-1 


<  2284) 

SUHX<  1  )  -  SUHX<  1  >♦ XH AL  F<  1  ,  K  1  '■*  YHALF<  K  ,  J  1  >-XHALF<  I ,  K2  •*YHALF‘  F,  J  2  ) 

(2285) 

SUHX<  2  )  »  SUHX<2)+XHALFtI,Kl  )*YHaLF<K,  J2)+XHALF(  I,K2  .+YHALFf  k  J 1  ' 

<2286) 

169 

CONTINUE 

<2287) 

9HALF<  1/31  )  «  SUNXC1  > 

<2288) 

OHALFC I ,  J2  >  «  SURX<2> 

<  2289) 

171 

CONTINUE 

<2290) 

xF< JDIAC .EO. 5  )  CALL  HOUTC< CH ALF, N , N , M20, JR , JR , I ROW , 1 C OL , L I NE , * «  ) 

<2291) 

C 

FOR  L  *  1  2 

<  2292) 

C 

CALC  01, Cl  A  1 , 8  ! 

<2293) 

DO  172  1*1,  N 

<2294) 

IO-I+IB 

<2 295) 

DO  172  J*1  ,N 

<2296) 

J2  *  2*4 

<2297) 

dl  •  32~  1 

<2298) 

SUMX< 1 )  *  0.0 

<2299) 

SUHX<  2  >  *  0.0 

<  2300) 

J02  *  32+182 

<  2301  ) 

J01  *  J02-1 

<2302) 

DO  163  K*1 , N 

<  2303) 

K2  «  2*K 

<2304) 

K1  *  K2- 1 

<  2305) 

SUMX<  1  )  *  SUNX<  1  )+8HALF<  I  ,K  1  >*ZHALF<K  .  J1  QHALF  <  I,  K2  ■ «  2HhLF>  l> ,  J  2  > 

<  2306) 

SUNX<  2  )  *  SUMX< 2)+0HALF< I ,K1  )*2HALF<  K  ,  42  i+QHAlff  I.K2  <*2H«I.F-  K ,  o  1  ■ 

<  2307) 

168 

CONTINUE 

<  2308) 

X! N<  I , <1 1  )  *  TABLX<  10, J01  )-SUMXU  > 

<  2309) 

XI N< I , J  2  )  *  TABLX< 10 , J 02  )-SUHX< 2  ) 

<  2310) 

172 

CONTINUE 

<2311) 

IF<  JO  I AC . EQ . 5  )  CALL  MOUTC< X I N, N, N . « 60 , JR , J R , ! RO U , I  COL  .  L  1  NE  .  K U  , 

<  2312) 

CALL  INVC<  N, I  ERR ) 

<  2313) 

D1 *DRE*OLX< 1  )-DIH  +  DLX<  2  ) 

<  2314) 

OIM»ORE*OLX<  2  >+OIN*DLX<  1  ) 

<2313) 

DRE-01 

<2316) 

IF  < JOIAG . NE . 5  )  GO  TO  1720 

<2317) 

DO  1725  1*1, N2 

<  2318) 

IRO«<I)  *  I 

<  2319) 

IC0L< I )  *  I 

<  2320) 

1725 

CONTINUE 

<  2321) 

CALL  M0UTC<X0U,N,N,M60, JR, JR, I ROU . I  COL , L  INE  kW> 

<  2322) 

URITE<K«,1100)0LX< 1),0LX<2> 

<2323) 

i  720 

IF  <IO.EQ.O)  GO  TO  190 

<  2324) 

00  173  1*1, N 

<  2325) 

00  173  J*l,N2 

<2326) 

ZHALF<  I ,  J )  »  XOU< 1,4  ) 

<  2327) 

173 

CONTINUE 

<  2328) 

1F<  JDIAG  EQ.  5  >  CALL  NOUTC< ZHALF, N , N , N20, JR , JR , I  ROM , I C OL , L I NE , K * 

<  2329) 

00  180  I*  1 ,  N 

<  2330) 

10*  I ♦ I B 

<2331) 

11*  I+N8 

<  2332) 

00  180  J-  1 ,  N 

<  2333 ) 

J2  •  2* J 

<2334) 

Jl  *  J2-1 

<2335) 

J02  *  J 2+1 82 

<  2336) 

J01  «  J 02- 1 

<2337) 

J 1 2  -  J2+HB2 
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<  2338) 
<23 39) 

<  2340) 
<2341) 

<  2342 > 
(2343) 
(2344) 
<23<"> 
(  2348  > 

<  2347) 
(2348) 

<  2349) 
<2350) 
(2331) 
( 2352) 
(2333) 

<  2354) 
(2335) 
(2356) 

<  2337) 
<2358) 
<2359) 

<  2360) 

<  2361  ) 
< 2362) 

<  2363) 

<  2364  ) 
(2365) 
( 2366) 

<  2367) 

<  2368) 
<2369) 
<2370) 

<  2  37  t  ) 

<  2372) 
(2373) 

<  2374) 
(2375) 
(2376) 

<  2377) 
< 2378) 

<  2379) 
<2380) 

<  2381  ) 
<2382) 
<2383) 
<2384) 

<  2385) 

<  2386) 

<  2387) 

<  2  388  7 
<1389) 

<  2380) 
<2391 ) 


175 


180 

C 


181 


183 


182 

C 

C 


ZHALF<  I ,  J  l  > 
ZHALF< I ,  J2  > 
.0 
.0 


2 

01 

H0UTC<XHALF/H,N,H20,JR,JR'.  IR0W,IC0l,LIHE,Ky> 


JU  *  J  12-1 
TABLX( 10,  J01 > 

TABLX<  !0j<102  ) 

XHALFC  I ,  J1  >  « 

XHALF<I,J2>  * 

00  175  K«  1 / H 
K2  *  2*K 
K1  *  K2- 1 

XHALF< I i J 1 >  ■  XHALF<I,J1)-ZHALF< I , k 1 > *QHALF< K , J 1 >+ZHALF< I . K2  ) 

►  *QHALF<K  ,  J2  ) 
XHALF < I , J2  >  *  XHALF< I, J2)-ZHALF< I , K 1 >*8HALF< K , J 2 >-ZH ALF< I , K2 > 

►  <XQHALF<K<J1  > 
CONTINUE 

TABLX< 10 .  J  1 1 >  -  XHALF< I,J1> 

TABLX< 10, J 12  )  -  XH ALF< I ,  J  2  > 

CONTINUE 
FOR  L  *  1 

STORE  A 1 

1F< J0IAG.EQ.5)  CALL 
00  181  I  *1 ,  N 
Il=I+«8 
DO  181  J*1,N2 
J0= J+ 1B2 

QHALF< I »  J  >*TABLX(  II , JO ) 

IF<  JO  I  AC  .  EQ . 5  )  CALL  NOUTCC  QHALF 
DO  182  I«1,N 
00  182  J  *  1 ,  N 
J2  =  2* J 
J1  «  J2-1 
SUHX< 1  )  »  0.0 
SUNX<  2 )  *  0.0 
00  183  K*1,N 
K 2  «  2*K 
Kl  =*  K2- 1 

SUHX(l)  -  SUMX< l  >  +  QHALF< I ,Kl  >*XHALF<K, Jt >-QHALF 
SU«;«2>  -  SUHX<  2>4'QHALF<  I  ,K1  )*XHALF<K/ J2  >+QHALF 
CONTINUE 

*  -SUHX< 1 ) 

*  -Sl)HX<  2 ) 

GO  TO  182 
■  1  .  0-SUMX< 1  ) 


N/N/H20/ JR/ JR/ IROU/ ICOL/LINE/KU ) 


<  I, K2  )*XHALF< K, J 2 ) 

<  1/  !<2  >*XHALF<  K/  J  1  ) 


ZHALF< I / J 1  ) 
ZHALF< I / J2  ) 

IF  < I .HE  .  J  ) 
ZHALF<  I  /  J  1  )  * 
CONTINUE 
1 F ( JDIAG  .EQ. 5 
FOR  L  * 

CALC 

DO  184  I *1 / H 
10* I+MB 
.■>0  184  J  *1  /  H 
.12  *  2* J 
J1  =  J2-1 
J02  *  J2+H82 
J01  «  J02-1 
SUMX< 1 )  *  0.0 
SUHX<  2  >  *  0.0 


)  CALL  HOUTCC  ZHALF 
1  2 
INV(AO)  INV(DO) 


N.N/H20/ JR. JR, I  ROM/ I  COL. LI  HE /KM  ) 
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ijn  . . 


3 

(2392) 

DO  183  K>!.N 

1 

( 2393) 
(2394) 

K2  -  «*K 

K1  ■  K2- 1 

1 

fi 

(2393) 

SUHX(l)  -  SUHX( 1 >♦ YH8LF( 1  *  K l  )*2H ALF( K  <  J l >- YHALF( I . K2  >*ZHALF( K, J2  > 

'1 

? 

(  2390 

$UMX( 2 )  -  SUHX<  2 >♦ YH ALF ( I / K 1 >*ZHALF(K , J2 >+YHALF( I , K2  >*ZHALF( K*  J  i  > 

1 

(2397) 

183 

CONTINUE 

-1 

% 

3 

(2398) 

TA8LXC 10/301 )  «  SUHX( 1 ) 

1 

( 2399) 

TABLX< I0.J02  )  »  SUNX( 2  ) 

I 

1 

( 2400) 

184 

CONTINUE 

t 

3*_ 

(2401) 

C 

FOR  L  *  1  2 

% 

( 2402) 

C 

STORE  81  Cl 

-•3 

4 

( 2403) 

DO  186  I«l,N 

£ 

jj 

i 

( 2404) 

11  *  I»HB 

| 

| 

(  2403'' 

DO  186  J  » 1  *  N 

t 

* 

i.v 

1 

(  2400 

J 2  *  2^<J 

( 2407) 

J1  *  J2-1 

( 2408) 

XHALF( I <  J1 >  *  0.0 

"1 

4 

(2409) 

XHALF( I / J 2  >  >0.0 

* 

(2410) 

JB2  -  J2+IB2 

i 

5 

( 24tl  > 

JB1  «  J 82- 1 

d 

5 

(2412) 

DO  186  K>1>N 

7 

jj 

(2413) 

K I  »  K+IB 

; 

(2414) 

K2  »  2*KI 

i 

a: 

(2415) 

K1  *  K2-1 

A 

(2416) 

XH ALF(  I ,  J1  )  «  XHALF(  I , J  l  >  +  T ABLX( 1 1 . K1  >*TA8L X( K I  - JB 1 ) - TABL X( I 1 , K2 ) 

i 

1 

$ 

5- 

(2417) 

♦  *TABLX(KI#JB2> 

=J 

<  2418) 

XHAlF( I , J2  >  =  XHALF(  I,  J2MTABLX(  1 1,  K1  >*TABLX<  Kt  .  JB2)+TA8LX<  I  1,  K2> 

t 

j 

(2419) 

♦  *TABLX( KI » JB1 ) 

( 2420) 

186 

CONTINUE 

| 

(  2421  ) 

IF(  J!)  IAG  .  “Q  .  5  )  CALL  «0UTC(  XHALF/  N  ,  N  ,  H20,  JR  -  JR  ,  I  ROU  ,  I  C  OL  ,  L  I  NE  ,  K  U  ) 

•  J 

4 

l 

( 2422) 

DO  188  I  *  1 / N 

<  2423) 

DO  188  J=1 ,N 

\ 

( 2424) 

J2  a  2* J 

( 2425) 

J 1  *  J2-1 

i 

i 

% 

i 

( 2426) 

SUHX(  1  )  »  0  0 

X 

7 

< 2427) 

SUHX( 2  >  *  0.0 

1 

? 

( 2428) 

DO  189  Kal,N 

i 

r 

( 2429) 

K2  »  2*X 

1 

.3 

<  2430) 

K1  a  K2 -  1 

\ 

; 

<  243  1  ) 

SUMX< 1 )  a  SUHX(  1 )-YNALF< I ,K1  >*XHrtLF(K, J1  )+YHALF<.  I, K2  )*XHALF<  K, J2> 

= 

( 2432) 

SUNX(  2)  a  SUHX(2>-YHALF(I/K1  )*XH  ALF(.  K  ,  J2  Y  HALF  <  I ,  K2  )*XHALF<  K,  J  1  ) 

(2433) 

189 

CONTINUE 

£ 

i 

( 2434) 

TA8LX( I*NB,J 1+IB2 >  *  SUHXf l  ) 

-  % 

it 

1 

( 2435) 

TABLX( I+M8, J  2 ♦ I B2  )  =  SUMX(2) 

-* 

5V 

( 2436) 

188 

CONTINUE 

$ 

|  ' 

( 2437) 

IF  ( ID. EQ. 1 >  CO  TO  190 

i 

I* 

< 2438) 

160 

CONTINUE 

( 2439) 

190 

OLX< 1  )  a  ORE 

•A 

<  2440) 

Dl  X<  2  )  «  DIN 

;  | 

& 

<  244  1  ) 

IF  < JDIAG. NE .5)  GO  TO  200 

*4 

( 2442) 

CALL  H0UTC(TABLX>N2/N2/H60/JR«JR< 1R0U ,  I COL  >  L I NE • KW  > 

; 

|  ( 

(2443) 

UR  1 TE( KU  < 1 100  )DLX( 1),0LX<2> 

i 

i  S 

| 

<  2444) 

200 

RETURN 

| 

<  2445) 

END 

9 

<  2446) 

<  244?,' 

<  2448  ) 

(2448) 
(2450)  1 

(  2451  ) 

<  2452) 

( 2453) 

<  2454) 

( 2455) 


SUBROUTINE  HEAD  1 
INTEGER  TITLE (16) 

C0MM0N/CHEAD1  /TITLE.  LI ,  L2 ,  L 1 ,  L4,  L5,  LI  S  T/UR.'KW  ,  KR 
WR I  TE<  KW  ,  1  )  T  ITLE , Li ,L2 , L3,  L5 

FORMAT  < IHi, T4, 16A4//T10, 14HSHAFT  SEGMENTS , T38 , 1 H« , T4 0 , 1 5 / Tt 0 , 
+ 15HSHAFT  MATERIALS, T38, 1H-, T4Q, I5/T10. 15HLUMPE0  INERTIA 
+ 8H STATIC NS, T38, 1H • , T4D , 15/ 

+T10,8H8£ARINGS, T38, 1H«, T40, 15) 

RETURN 

END 


<2456) 

<245?) 

<2458) 

<  2459 ) 

<2460) 

<2461) 

<2462) 

<2463) 

<2464) 

<2465) 

<2466)  1 

<2 46?) 

<2468) 

<2469) 

<2470) 

<2471 > 

<2472) 

<2473) 

<2474)  3 

(  2475)  4 

<2476) 

<2477)  5 

<  2478) 

<2479) 


SUBROUTINE  STATU, K> 

SSSM^SnSri^M  ••*;?**  F« » 

COM MON/C 8T AT 7X<  75),Z<?6) 

DIMENSION  D<  4  ) 

KNJ-K-J 
KP1-K*1 
DO  1  L*  1 , 4 
D<  L  )*UQ<  K,  L ) 

IF<L.GE.3)  D< L )*D< L )*82(KMJ  ) 

U0<  KP 1 , L  )*D<  L  > 

C  *  1 

DO  4  L«l,4 

C*C*X<KMJ)/L 

IP  <L .EQ .4 )  GO  TO  4 

LI  1  =  4-L 

DO  3  1*1, LL1 

IP  1  *1  +L 

U0< KP 1, I  PI )*U0<  KP 1 , 1  Pi )+D(J  )*c 

U0<KPl,L)*U0<KPl,L)-Bi(KH4)*C 

00  5  1*3,4 

U0<KP1,L  >*UO<KPl,L  )782<  KNJ) 

RETURN 

END 


<  2480) 

<  2481  ) 

<  2482) 

<  2483) 

<  2484  ) 

<  2485) 

<  2488) 

<  2487) 

<  2488) 

<  2489) 

<  2490) 

<  2491  ) 

<  2492) 

<  2493) 

<  2494  ) 
<2495) 

<  2496) 

<  2497) 


<  2498; 

<  2499) 

<  2500) 

( 2501 ) 

( 2502) 

<  2503) 

<  2504) 

1 

<  2505) 

<  2506) 

2 

<  2507) 

3 

<  2508) 

<  2509) 

10 

(2510) 

1  1 

<2511) 

<2512) 

<2513) 

(2514) 

(2515) 

(2516) 

<  2517) 

12 

(2518) 

< 2519) 

13 

<  2520) 

14 

<  2521  ) 

<2522) 

20 

<2523) 

<  2524) 

<2525) 

30 

<2526) 

<2527) 

<2528) 

<  2529) 

<2530) 

31 

<  2531  ) 

<  2532) 

32 

<  2533) 

33 

SUBROUTINE  STEP  <K,IS, IER  > 

INTECER  TITLEC18) 

C0MMQN/ATEST1/81< 75),B2<?5> , B3< 75 >, B4< 75  )  B5< 
C0HH0N/ATEST3/V0< 80, 8), 85(80,8,4!  8fc<?5> 

C0MH0N/BSTEP7D5(4, 2) 

COMMON/CST8T/X< 75), 7(76) 

C0MHQN7A'GU7S4<  4), 88(4, 8) 

C0MMQN/8BRG/S5(  4,  2  ),  T5(  4, 2  ) 

■ ■»" — ■« 

DIMENSION  D(  4  > 

K1  »  K 
KK  «  K- J  4 
KP  =  K+l 
DO  50  1*1,2 

13  -  i-l 
12  *  2*13 

14  *  2*12 
13  x  3*13 
DO  40  M*  1 , 3 
MM  =  M+I2-1 
DO  3  11=1,4 
LL  *  IL  +  I4 

IF  (M-2)  1,2,2 
D(  IL)  «  V0(  K  1  ,  LL  ) 

GO  TO  3 

D(  IL)  *  85<K,LL,MH ) 

CONTINUE 

IF  (IS-2)  10,20,30 

DO  11  11=3,4 

D(  IL)  =  D<  IL  >*B2(  KK) 

CALL  TRANS  ( 0 , KK ) 

11  <;.M-J.;h°.i.E«.1)  CALL  UT  <D,KK> 

DO  H  IL=1,4 

IF  (IL.GE.3)  D(  IL )  «  D(ILVB2(KK) 

LL  »  IL+I4 
IF  (M-2  )  12,13,13 
V0( KP , LL  )  =  D(  IL) 

GO  TO  14 

A5<  KP , LL , MM  >  *  D<  IL) 

CONTINUE 

GO  TO  40 

JJ  «  M+T3 

CALL  HINGE  <D,JJ> 

GO  TO  40 
CALL  BEAR  (D,  I) 

Jo  *  0<1  >*S5<  os,  I)>0!UB,  I  ) 

LL  =  IL  +  14 
IF  (M-2  )  31,32, 32 
VO(K,LL>  =  D(  IL) 

GO  TO  33 

A5(  K,  LL  ,  MM  )  »  O(IL) 

CONTINUE 


(  2534) 

40 

CONTINUE 

<  2535) 

IF  < I S - 2  )  50/41,50 

<  2536) 

41 

131  *  13+1 

<  253?) 

132  «  13+2 

<  2538) 

133  «  13+3 

(2538) 

AAA  *  A  6  (  •)  4 ,  132  ) 

<  2540) 

IF  (AAA.E3.0j  GO  TO  ?C- 

(2541) 

A6(J4>13n  *  -A6(  ,14/  131  VAAA 

<  2542) 

A6<  J4  > 1 32  )  «  -A6(  <J  4/  13  3  )/ AAA 

(2543) 

A6<  J4 , I 33  )  *  S4<  J  4  )/AA A 

(2544) 

121  «  12+1 

( 2545) 

122  *  12+2 

( 2546) 

DO  42  IL*1,4 

(254?) 

LL  *  IL+I4 

( 2548) 

IF  (IL.E0.3)  GO  TO  42 

( 2548) 

A5(KP,LL, 122 )  *  A5<K,LL,I2iJ*A6(J4,I32>+A5''K,LL/I22j 

( 2550) 

A5< KP,LL/ 121  )  =  A5(K,LL,I21  )*«6< J4, 133 > 

( 2551  > 

V0<  KP / LL  )  =  V0( K1 / LL  )+A5C K, LL, 121  )*A6( J4  131) 

( 2552) 

42 

CONTINUE 

( 2553) 

143  »  14+3 

( 2554) 

A5(  KP..  143/  121  )  *  0 

<  2555) 

A5< KP/ 143, 122  )  *  1 

( 2556) 

50 

CONTINUE 

( 255?) 

IF  (IS.NE  3. OR  LB  EQ.L5)  GO  TO  60 

(2558) 

L8  -  LB+1 

(2558) 

«5  ■  N5(L8) 

( 2560) 

60 

RETURN 

(  2561  ) 

?0 

WRITE  ( KW, ?1 )  J4 

( 2562) 

?1 

FORMAT  </22H  FREE  COUPLING  AT  N0DE,13,13H  SHOULD  BE  PRECEDED 

( 2563) 

♦  14H  BY  A  BEARING.  ) 

( 2564) 

IER  =  1 

( 2565) 

GOTO  60 

( 2566) 

END 

<2567) 

SUBROUTINE  BEAR  <A,K> 

<  2568 ) 

C0MH0N/BSTEP/D5<4<  2) 

<  2569) 

COMMON/' A  BRC/  S5<  4/  2  >,  T5<  4.  2) 

(2570) 

CQHN0N/ASTEP/'J4/LB/M5/N5<  4) 

(  2571  ) 

DIMENSION  A<  4  >/  BB<  2  > 

<  2572) 

BBU  )  *  -S5<  LB/  K) 

(2573) 

BB<  2  )  »  T5<  LB / K  ) 

<  2574) 

DO  1  1-1/2 

<  2575) 

J  *  5-1 

<2576)  1 

A<  I  >  *  A<  I  )+BB<  I  )*A<  J  > 

<2577) 

RETURN 

<2578) 

END 

<  2579 >  FUNCVi  .  <  KFCN(N,K»  I > 

<  2580)  KFCH  «  N*<K-1  HI 

(2581)  RETURN 

(2582)  END 


<2583) 

SUBROUTINE  JFCH  <J,N> 

<2584) 

COHHON/IHIN/Nl<  5); N2(5  ) 

(2589) 

C0HH0N/8STEP/J4,L8,H5<N5<4> 

<2586) 

J4  •  J-l 

(258?) 

N  •  Nl<  J  > 

<2588) 

RETURN 

<2589) 

END 

<2590)  SUBROUTINE  HFCN  <J/N,M) 

<  2591  )  C0MH0N/IHIN/N1<5),N2<5  ) 

<  2592)  N  «  N2<  J  ) 

<2593)  N  «  N  +  l 

<2594)  RETURN 

<2595)  END 

PROGRAM  SIZE:  PROCEDURE  -  000020  LINKAGE  -  000022  STACK  -  000024 

0000  ERRORS  [<NFCN  >F  TN-REV1 5 . 3  ] 


(2596) 

<  259?  > 
<2598) 
<2599) 

<  2800  > 
<2(01) 

<  2(02 )  1 
<2(03) 
<2(04)  2 

<2(05) 
<2(00  3 

<  2(0? ) 
<2(08) 
<2(09)  4 

<  2(10) 


SUBROUTINE  STACK  < I , J , K , N ,  1 1 , K t ,  K2 ) 
DIMENSION  N<4),K1<5),K2<5) 

11*1-1 

IF  <  1 1 .  G  TO  >  CO  TO  3 
Kl< I)  «  1 

IF  (K.GT.O)  GO  TO  2 
K2< I)  •  J+K 
GO  TO  4 

K2<  1)  *  N<  I  >♦■11  —  1 
GO  TO  4 

Kl< I)  *  N< II  )*I1 

IF  < K . CT  .  1 1 )  GO  TO  2 

GO  TO  1 

RETURN 

END 


< 


i 

i 

i 

\ 

a 

I 


1 


i 


.5 


1 


<261  1  > 
( 2612) 
(2613) 
(2614) 
(2619) 
( 2616) 
(2617) 
(2618) 
( 2619) 
(2620) 
(2621  ) 
(2622) 
( 2623) 
(2624) 
(2623) 
(2626) 
(2627) 
(2628) 


SUBROUTINE  TRANS  (A.KK) 
COHNON/CSTAT/X(  73). 2(76) 
DIMENSION  A(  4  )/  C(  3  ) 


XI  * 
XX  * 
DO  1 
XX  ■ 
G(H> 
DO  3 
M  « 
MM  * 


'  X(KK> 

'  1 

M*1.3 
XX*X1/M 
•  XX 
1*1.3 
3-1 
M-l 


DO  2  J* 1 . MM 

K  -  M-J 

8  *  G(J )*A< K  ) 

A(M>  *  A(MHB 

CONTINUE 

RETURN 

END 


(2629) 

SUBROUTINE  VT  (D,KK> 

(2630) 

COHHON/A TEST  1/81 ( 75 ) /D2( 79 > / B3( 75  >/ B4( 75  >, B5( 75  ) 

( 2631) 

COHMON/CSTBT/X( 75  ),Z( 76  > 

(2632) 

DIMENSION  D( 4  ) 

(2633) 

BS  -  Bl(KK) 

( 2634) 

XI  *  X(KK> 

(2639) 

00  1  1*1/4 

(2636) 

BB  ■  B3*X1/I 

(2637)  1 

D(  I  )  *  D(  I  )-BB 

(2638) 

RETURN 

( 2639) 

END 

<264 0>  SUBROUTINE  HINCE  <A,JJ> 

<2641)  C0MM0N/AC0U/S4(4)»A6<4,6) 

<  2642 >  COHHON/ASTEP/'J4/IB<H5jN5(4) 

<2643)  DIMENSION  A<  4  > 

<2644)  A6<  J4  /  J  <J  >  ■  A< 2  >+S4<  J4  >*A< 3  > 

<2645)  RETURN 

(2646)  END 


I 


pm^rr 


Z-'7*. 


C  2647) 
( 2648) 
( 2649) 
( 2650) 

<  2651  ) 
( 2652) 
( 2653) 
( 2654) 

<  2655) 
< 2656) 
(2657) 

<  2658) 

<  2659) 

<  2660) 
<  2661  ) 
(2662) 


10 
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^ V- * 


SUBROUTINE  TORS  (  K  .  D  > 

INTEGER  TITLEC16) 

COMHON/AMH/F . FF . XS<  4  »  2  ).F1.FF1 .$S 

COMNON/ATEST1/BK  75 ) ,  B2(  75  > .  B3<  75  >. B4<  75  >.  B5(  75  )  .  B6(  ?5  ) 
C0MHQN/CSTAT/X(?5)»Z<76 > 

CGMM0N/ASTEP/44,L8,H5. N5( 4) 

CONMON/CHEAD 1 /TITLE, LI .L2.L3.L4. L5 , L I S T/ MR/ KW , K R 
DIMENSION  0(2) 

KK*K- J4 

CC  »  FF*B4<KK  > 

AA  *  B5( KK  >*CC 
0(  1  )*D(  1  >/ AA 
CALL  TWIST<D,KK,CC) 

D(  1  )  *  D<  1  )*  A  A 

RETURN 

END 


■Tfr.  Jt^y.r.-M?  xCSMUm 


(2474) 

SUBROUTINE  SEND 

<  2477  ) 

INTEGER  TI TLE( 1 4 > 

<2478) 

CONMON/AUH/F  *FF*XS(4*2)*F1*FF1*SS 

<2479) 

CON  HON/ A  TEST  1/B1(?9)  *82(75)  <  63  (  75  >*  B4(  75  >*  B5(  75  )  ,B4(  75) 

(2480) 

C0HH0N/ATEST2/U0(  80*  4 ) 

(2481) 

C0MK0N/CSTAT/X(  75 )*Z<74 > 

( 2482) 

C0HH0N/AEN0/U(80* 2 )*  ZH(  74 )*  ZK(  20 ) *  FFRT 

<  2483) 

C0MM0N/CHEAD1/TITL£*L1*L2*L3*L4* L5*  LI  ST/UR/KM , KR 

<  2484  > 

DO  1  L-1*L1 

<2489) 

88  -  FFRT*83(  L  >#X( L  > 

(  2484) 

CS  ■  CQS(BB) 

<2487) 

SN  «  SIN(BB) 

(2488) 

XH  >  EXP(BB) 

(2489) 

XO  -  1.0/XH 

<  2490) 

CH  ■  0 . 5*( XH  +  XO  > 

(2491) 

SH  »  CH-XO 

( 2492) 

U0( L* 1 )  *  0. 5*( CS  +  CH  > 

<  2493) 

U0( L*  2 )  «  0. 5*( SH-SN  ) 

(2494) 

U0( L*  3 )  «  UO(L* 1>-CS 

(  2493)  1 

U0(  L*  4  )  >  U0(L*2HSN 

( 2494) 

RETURN 

( 2497) 

END 

<  2698) 

<  2699) 
( 2700) 
(  2701  ) 

<  2702) 
( 2703) 
( 2704) 
( 2705) 
<2706) 
<2707) 
<2708) 
<2709) 
<2710) 
<2711) 
<2712) 

<  2713) 


SUBROUTINE  NODE 

COMMON/ AEND/U< 80,  2  >,ZM<  76  ),  ZK<  20  ),FFRT 
COMMON/ ABEND /LIP, L4P1,  18,13 
MO*  1 

A*ZM< 1  )*ZM< 1  ) 

DO  1  1*2, LIP 
B«ZH< I >*ZN< I  ) 

IF(A.GE.B)  GO  TO  1 
MO*  I 

CONTINUE 
A  *  A/ZM<MO> 

DO  2  1*1, LIP 
ZM< I  )*2M< I  )/ A 
RETURN 
END 
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< 2714) 

<  2715) 
<2716) 
<2717) 
<2718) 
<2719) 
<2720) 
<2721  )  i 

<  2722) 
<2723) 

<  2724) 
<2725) 
<2726) 
<2727) 
<2728) 

<  2729)  2 

<  2730) 

<2731)  3 

<  2732) 

<  2733)  4 

<  2734)  5 

<  2735) 

<  2736) 


SUBROUTINE  COUP  <  N  1 , B  ) 
C0MH0N7ftVI8/ftft5(80,8,4  ) 
C0NH0N/'ftC0U7S4<4),ft6<4,6> 
C0HH0N/'ftSTEP/J4,LB,M5,N5<4) 

DIMENSION  D<8,4>, 8C4,4  \ 

00  1  K*  1,8 
00  1  K1  *  1 , 4 

D<  K » K  1  )  «  ftft5<  M  1 ,  K ,  K  i  ) 

00  5  K»l,8 
00  5  KIM, 4 

IF  <K.NE  3  .  ftND  K.NE.7)  GO  TO  3 
KK  *  2*Ki+ 1 
IF  (K.EQ.KK)  GO  TO  2 
ftft5<Ml,K,Kl >  ■  0  0 
GOTO  5 

ftft  5  (  M 1 ,  K  ,  K  1  )  *](] 

GO  TO  5 
00  4  K2M,2 
KK  *  2*K2- 1 

CONTINUE  *'  '  ’  >-£■<  K.  KK).e<  K2.K1  > 

return 


END 


307 


( 2737) 
< 2738) 
< 2739) 
t 2740) 

<  274  1  ) 

<  2742) 

<  2743) 

<  2744) 

<  2745) 

<  2746) 

<  2747) 

<  2748) 

<  2749) 

<  2750) 

<  2751  ) 
<2752) 


SUBROUTINE  C0UP1  <M,L,A,B) 
C0MH0N/'AVIB^8A5<80,8,4  ) 
CQMN0N/'AC0U,'S4<4>,A6<4,6> 

DIMENSION  A<4,2,2),8(8),C(2),AA<2> 
C<  1  >  *  -B<2)-S4<L  )*B(3  > 

C<2)  *  -B<  6  )-$4<  L  )*8<  ?  ) 

DO  1  1=1,2 
AA< I )  =  0 
DO  1  3*1,2 

AA<  I  )  *  AA<I  )+A<L, I, J)*C< J> 

DO  2  1*1,8 
DO  2  J  =  1 , 2 
K  *  2*J-1 

8< I  )  =  8< I  HAA5CM,  I , K  )* AA( J  ) 

RETURN 

Fun 


<2753)  SUBROUTINE  IUHP  <A,6,C,D,B8> 

<  2754  )  DIMENSION  BB<6> 

<2755)  DO  1  K«1  #2 

<  2756)  K1  »  KFCN(  4/  K*  1  > 

<2757)  K2  •  KFCN<  4<  K* 2  ) 

<2758)  K3  «  KFCN<4,K,3> 

<  275S)  K4  »  KFCN( 4/ K* 4  ) 

<2760)  BB(  K1  >  ■  BB<K1)+A*BB<K4)+B*6B<K3) 

<2761)  Al  •  D 

<2762)  IF  (K.EQ.2)  AA  «  -AA 

<2763)  1  0B<K2)  «  8B<  K2  >-8*B8<  K4  >♦<  AA-C  )*BB<  K3  ) 

<2764)  RETURN 

<2765)  END 


<2?««) 
<2747> 
( 27(8  > 

<  2769) 
<2770) 

<  277 i  ) 
<2772) 


*»  i  *  '  ~~  Vr r  fs-Sw'Sft  3^§~  *£ijpte> '  >C  '  ^  .  .  '.  "^CS?  ,  ■S^"’1'  •" 


SUBROUTINE  LUNP1  < U, Y, T , P, F , G, A, 8 , C , 0  ) 
A  ■  G*W/386 . 4 
B  •  A*Y 


C  «  8*Y+G*T 
0  «  F*P 
RETURN 
END 


<  2  7?  3  >  SUBROUTINE  LIMP  <Ji,A,9) 

<  2774)  COMMON/ A  VI B/ AA5( 80 , 8 , 4  ) 

<  2775)  CQMM0N/AC0U/S4<  4  > , A6<  4  »  6  > 

<  2776)  COMMON /ASTEP/J4, LB, M5, N5<  4) 

<  2777)  DIMENSION  A<4, 4), B<4, 4  ) 

<2778)  DO  2  1*1,2 

<2779)  K  *  KFCN<4, 1,2) 

<2780)  L  *  KM 

<2781  )  DO  2  J*  1 , 2 

<2782)  J2  *  2*  J 

<2783)  J1  *  J 2  —  I 

<  2784)  B<  I  ,  J2  )  *  -AA5<M>L,<J2>“S4<J4>*AA5<H,L,J2) 

<2785)  IF  <1  EQ  J )  CO  TO  1 

<  2786)  B<  I  ,  J  1  )  *  0 

<2787)  GOTO  2 

<  2788)  1  B<  I ,  J  1  >  *  $4<  J4> 

<  2789)  2  A<  I ,  J  )  «  AA5< M, K, J 1 )+S4( J4)*AA5< M,L, J1 > 

<2790)  KA  *  2 

<  2791  >  KB  *  4 

<2792)  IMAX  *  4 

<  2793)  CALL  MAX IV< A , KA ,B , KB , DETERM .  IMAX  ) 

<2794)  RETURN 

<2795)  END 


<  2796 ) 
(2797) 

<  2798  > 

<  2799) 

<  2800) 

<  2801) 

<  2802) 

<  2803) 
(2804) 

(  2809)  1 

(2806)  2 
(2807) 

( 2608) 


SUBROUTINE  FLEX  <K,F,E> 

C0NMQN/8TEST1/B 1( ?5>,82(  75),  83(  7  5  >,  B4(  75  > 
DIMENSION  E(  4  > 

8  ■  F*B3<K> 

E(  1  )  ■  I 
00  2  I«2,4 
J  *  I-i 
8  *  £<J  ) 

IF  <  J -2  )  2,1,2 
8  *  8*8200 
E(  I  )  »  8*8 
RETURN 
END 


B5(  75  >,B6<  75) 


<  2809) 

SUBROUTINE  CFLEX  (  K/  8/  E  ) 

(2810) 

COMMON/ AT£ST2/UQ<  80/ 4  > 

(2811) 

DIMENSION  D(  4  )<  E<  4  )  / B<  8  )  /  F<  8  > 

(2812) 

DO  1  1-1/4 

(2813) 

1 

D(  I  )  >  U0<  K/ 1  > 

(2814) 

DO  5  J-l/4 

(2815) 

DO  3  L-i/2 

(2816) 

I  -  KFCN(4/L/J) 

(2817) 

A  •  0 

(2818) 

DO  2  N-l/4 

<  2819) 

H  -  KFCN<  4 / L / N ) 

(2820) 

2 

A  «  AtD<N>*E<N)*8<H) 

(  2  921  ) 

3 

F< I >  «  A/E< J  ) 

<  2822) 

IF  <  J  EQ  .4  >  GO  TO  5 

<  2823) 

A  «  D<  4  ) 

(2824) 

DO  4  N-l/3 

<  2829) 

L  «  S-N 

<  2828) 

I  *  l-l 

( 2827) 

4 

D(L>  -  0  <  I  > 

( 2828) 

D<  1  >  >  A 

<  2829) 

5 

CONTINUE 

<  2830) 

DO  8  1-1/8 

<  2831  ) 

6 

8<  I  )  *  F(  I  ) 

<  2832) 

RETURN 

<  2833) 

END 
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( 2834  ) 

<  2835) 

C 

<  2836) 

C 

(2837) 

c 

<  2838) 

c 

(2839) 

c 

(2840) 

c 

(  2841) 

c 

(2842) 

c 

' ~*43> 

c 

w4  4  > 

c 

(2845) 

c 

(2848) 

( 2847) 

( 2848) 

( 2849) 

( 2850) 

c 

(2851  ) 

c 

(2852) 

c 

(2853) 

t 

( 2854) 

2 

<  2855) 

3 

(2858) 

4 

( 2857) 

5 

(2858) 

6 

( 2859) 

7 

<  2660) 

c 

(2861) 

C 

( 2862) 

C 

(2863) 

10 

( 2864) 

15 

( 2865) 

20 

( 2866) 

30 

( 2867) 

C 

( 2868) 

C 

( 2869) 

c 

<  2870) 

40 

(  2871  ) 

45 

( 2872) 

50 

<  2873  ) 

60 

( 2874) 

70 

< 2875) 

80 

( 2876) 

85 

( 2877) 

90 

(2878) 

95 

( 2879) 

100 

( 2880) 

1  10 

(  2881  ) 

C 

( 2882) 

C 

( 2883) 

C 

( 2884) 

1  30 

( 2885) 

140 

( 2886) 

150 

( 2887) 

160 

3U8R0UT I  ME  MAX1V( AS, H» BS, H, OS, HJ ) 

MATRIX  INVERSION  AND  SOLUTION  OF  SIMULTANEOUS  LINEAR  EQUATIONS 
OF  THE  FORM  AS*X«BS 

I NV<  AS  >  AND  X  ARE  RETURNED  AS  <AS,BS>,  THE  ORIGINAL  (A$,0$>  ARE 
LOST 

N<LT.6l>  RANK  OF  AS  AND  BS ,  RETURNED  AS  0  IF  AS  IS  SINGULAR 
M  COLUMNS  OF  BS,  M  MUST  HOT  EXCEED  N 

DS  DETERMINANT  3F  AS 

AS  AND  BS  MUST  BE  DIMENSIONED  < NJ , NJ >  IN  THE  CALLING  PROGRAM 
HJ  MUST  BE  HO  LESS  THAN  EITHER  M  OR  N 

DIMENSION  Al(40,60 >,PIVQT<60  ) 

DIMENSION  AS<NJ,1 ),BS<NJ, 1> 

DIMENSION  IPIV0T(20),INDEX(20,2> 

EQUIVALENCE  <IROM,JROM>,  < I COLUH  »  JCQLUM  ) ,  < AMAX , T, SWAP > 

COMPUTATION  OF  NORM 

C  *  t  . 0E-20 
ANO  -  0.0 
00  6  I  *  1 ,  N 
DO  6  J  *  1  ,  N 

ANO  ■  ANO+AS< I, J)*AS(I, J) 

A I  <  1 1  J  )  *  AS<  I,  J> 

ANO  *  ANO/N 

INITIALIZATION 

DETERM  =1.0 
DO  20  J  *  1 ,  N 
IPIVOT(J)  *  0 
DO  550  I  =  i <  N 

SEARCH  FOR  PIVOT  ELEMENT 

AMAX  =00 
DO  100  J  =  1 , N 

IF  (IPIVOTC J  )  EQ  1  )  GO  TO  100 
DO  100  K  =  t  ,  M 

IF  CIPIV0T<K)-1  )  80,  100,840 

IF  (ABSC AMAH  >-ABS< AS< J , K) >>  85,1  00,  100 

IROW  =  J 

ICOLUM  *  K 

AM  AX  =  AS<  J  ,  K) 

CONTINUE 

IP1 VOT< ICOLUM )  =  1  PI VOT< I COLUM  )  + 1 

INTERCHANGE  ROWS  TO  PUT  PIVOT  ELEMENT  fiN  DIAGONAL 

IF  (IROW .EQ. ICOLUM )  GO  TO  260 
DETERM  =  -DETERM 
00  200  L  =  1 ,  N 
SWAP  =  AS<  IROW,  L  J 
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w 

> 

( 2838) 

170 

ASC  IROW ,  L  )  -  ASC I COLUH, L) 

i 

( 2889  > 

200 

AS<  ICOLUH, L )  *  SWAP 

I 

g- 

<2890) 

205 

IF  (H.LE.O)  GO  TO  260 

|> 

w>„ 

(2891 > 

210 

DO  250  L«1,M 

if 

1 

\ 2892 ) 

220 

SWAP  *  BS<  IROW/L) 

12 

'S' 

(2893) 

230 

8S(  IROW/L  )  >  DSC  I COLUH / L ) 

1 

(2894) 

250 

BSC  ICOLUM, L>  «  SWAP 

w 

(2895) 

260 

INDEXC I / 1  )  >  IROW 

K 

(2898) 

270 

INDEX< I / 2  )  *  ICOLUM 

(2897) 

310 

PIVOT(I)  «  AS< ICOLUH/ ICOLUH > 

1 

( 2898  > 

320 

DETERH  «  D£T£RH*P I VOT( I > 

P 

| 

(2899) 

C 

% 

(2900) 

C 

ROW  NORHALIZATION 

% 

(2901) 

C 

i 

<  2902) 

330 

AS(  ICOLUH/ ICOLUH  >  = 1 . 0 

(2903) 

340 

DO  350  L*l/N 

| 

(2904) 

350 

AS< ICOLUH/ L  )  *  ASC ICOLUM, L >/PI VO TC I  ) 

l 

(2905) 

355 

IF  (H.LE.O)  GO  TO  380 

(2906) 

360 

DO  370  L*l/H 

(2907) 

370 

BSC  ICOLUH/L)  *  BSC  ICOLUM,  D/PIVOTcI  ) 

(2908) 

C 

tf 

(2909) 

C 

REDUCE  NON-PIVOT  ROWS 

f’ 

(2910) 

C 

l 

i 

(2911) 

330 

DO  550  L  1  =  1  / N 

(2912) 

390 

IF  <L1 . EG. ICOLUM)  GO  TO  550 

£ 

(2913) 

400 

T  *  ASC  LI/ ICOLUM) 

i 

(2914) 

420 

ASC  LI / I COLUH  )  =  0.0 

»■> 

(2915) 

430 

DO  450  L *  1 / N 

1, 

8 

<  2916) 

450 

ASCL1/L)  -  A$(L1,L >-AS< ICOLUM, L)*T 

(2917) 

455 

IF  (H.LE.O)  GO  TO  550 

5 

f?; 

<  2918) 

460 

DO  500  L*l,H 

1 

■ 

(2919) 

500 

8SCL1/L)  *  BSCLl , L >-BS<  ICOLUM, L)*T 

(2920) 

550 

CONTINUE 

<  2921  ) 

C 

l 

(2922) 

C 

INTERCHANGE  COLUMNS 

! 

( 2923) 

C 

■ 

6 

( 2924) 

600 

DO  720  1*1, N 

i ./ 

& 

( 2925) 

610 

L  =  N+l-I 

1 

y 

( 2926) 

620 

IF  (IHDEXcL/1)  EO  .  INDEX (  L  ,  2  )  )  GO  TO  720 

1 

(2927) 

630 

JROU  =  INDEXC  L, 1 ) 

ar 

/>■ 

( 2928) 

640 

•J COLUH  *  IHDEXC  L,  2  ) 

7 

( 2929) 

650 

00  710  K  =  1 ,N 

1 

( 2930) 

660 

SWhP  *  ASCK/JROW) 

5? 

4 

(  2931  ) 

670 

AS'K/JROU)  *  ASCK/JCOLUM) 

fv- 

( 2932) 

700 

ASCK/.JCOLUM)  =  SWAP 

y. 

(2933) 

710 

CONTINUE 

( 2934) 

720 

CONTINUE 

6 

( 2935) 

C 

|* 

( 2936) 

C 

TEST  SINGULARITY 

f « 

<2937) 

c 

f 

! 

By 

( 2938) 

730 

DO  780  1=1 ,N 

(2939) 

740 

D  =  0  .0 

EP» 

ev, 

f? 

( 2940) 

750 

DO  760  J=1 ,N 

S' 

B. 

(2941) 

760 

D  =  D  +  A1CZ.J  )*AS(  J  ,  I ) 

My 


£ 

1 

I 


i 


■s 


/ , 
J 


<2942) 

770 

DETERM  =  0*DETERM 

<  2943) 

780 

CONTINUE 

( 2944) 

790 

DETERN  =  DETERM*DET£RM 

(2945) 

800 

DO  810  1=1, N 

<  2946) 

810 

DETERN  =*  DETERN/ANO 

<  2947) 

820 

IF  (DETERN. IT. C)  GO 

TO  840 

<  2948) 

830 

DS  =  DETERN 

<  2949) 

RETURN 

<  2950) 

C 

<  2951  ) 

C 

SET  ERROR  INDEX  FOR 

SINGULAR  INPUT  MATRIX 

<  2952) 

C 

<  2953) 

840 

N  =  0 

<  2954) 

850 

GO  TO  830 

<  2955) 

END 

<  2956  > 
(2957) 

<  2958) 
(2959) 
<2960) 
(2961) 

<  2962) 
( 2963) 
( 2969) 
(2965) 
( 2966) 
( 2967) 
( 2968) 
( 2969) 
(2970) 


SUBROUTINE  ISTRP( I  SO , I BRC - S T I F , DAMP , I  RUN  ) 

DIMENSION  ST  I F( 2, 2 , 20 ) , DAHP( 2 , 2,  20) 

ISQ*0 

IF  (IBRQ.EQ.O)  GO  TO  105 
DO  101  1*1*1 BRG 

ANORM*STIF( 1 , 1  *  I  >**2 +ST IF( 2  *  2  *  I ) **2  +  S T IF < 1 , 2 , I) * *2  +  S T IF < 2  ,  1 ,  I >* *2 

BN0RM*D AHP< 1 , 1  *  I )* *2*DAMP( 2  *  2 *  I >**2 i DAMP< 1  *  2, I )* *2 +0AMP<  2  -  1 ,  I >**2 

ASUM*<STIF(1,2,  I)+STIF(2,  1/  I  )  > ** 2  +  <.  STIF(  1*  1*  I  >-STIF(2,2,I  >  >* *2 

B$UM»(DAHP( 1 , 2, I >  +  DAHP( 2, 1, I >)**2  +  ( DAMP< 1, 1 , l )~DANP(  2-2, I  <  >**2 

TN0RH*AN0RM+BN0RH 

IF  (TNORM  . E Q .  0.0)  GO  TO  105 

RTOR*<ASUN+BSUH VTNORH 

IF  (RTOR  .GT. 1 . 0D- 8  )  ISQ*1 

RETURN 

END 


1 


<2971)  SUBROUTINE  I CNRL< NBENO , INDEX , I  SO , DETER , I  WARM > 

( 2972)  COMMON, 'B HA T/XLX(60, 120  ),YLX( 60 , 1 20 > , ZLX( 60 , 120 > , 

(  2973)  +XHALF(20,40>, YHALF(20, 40  ) , ZH ALF(  20. 40  ),QHALF(  20, 40  ) 

(2974)  C0MH0N/B?NV/XIN<60,122),X0U(60,122),DLX(2),  IR0U<61  ),  IC0L(61) 

(  2975 )  CONNON/yUADD/FSQ 

(  2976)  DIMENSION  DETER< 2 , 1 > , I WARN< 2 , 2  ) 

(2977)  IONE  ■  1 

(2978)  ITMO  *  2 

(2979)  L«ISO*NBEND 

(2980)  120  *  20 

(2981)  CSQ  *  39 .  4784 1?6G4*FSG 

(2982)  DO  91  1*1, NBEND 

(2983)  DO  91  K* 1 , N8END 

(2984)  J  *  2*K-1 

(2985)  IF  (ISO.EQ.O)  GO  TO  91 

(2986)  J1  *  J+2*NBEND 

(  2987)  YH  ALF < I , K )  «  -YLX( I ,  J 1  )/GSQ 

(  2988)  91  XHALF<  I  ,  K )  *  YLX(I,J)/GSQ 

(2989)  HIN  *  NBEHD 

(2990)  CALL  MAX  1 V< XHALF , N 1H , Y HALF , L , D ET ER<  IQHE, INDEX  ) ,  I  20  ) 

(2991)  IF  (NIN.GT.O)  GO  TO  92 

(2992)  18  =  1 

(2993)  GO  TO  93 

(2994)  92  18*0 

(2995)  L*0 

(  2996)  93  I«ARH< 1 ,  INDEX >»I8 

(2997)  DO  95  I*t,N8END 

(  2998)  1 1  =  I +  NBE  ND 

(2999)  DO  95  K*  1 , N8END 

( 3000)  J  *  2*K-1 

(3001)  J1  *  J+2+NBEND 

(  3002)  XH ALFC I , K  >  «  YLX( I  1 , J I  )/GS8 

<  3003 )  IF  (ISO  EO  0  )  GO  TO  95 

( 3004)  IF  ( IW. EQ  0)  GO  TO  101 

(  3005)  YHALF(I,K)  *  -YLX(  1 1 , J  )/GSQ 

(3006)  GO  TO  95 

(3007)  101  DO  94  M*t, NBEND 

(3008)  Ml  *  2*M-1 

(  3009)  XHALF ( I , K  >  *  XHALF( I , K ) +YLX( 1 1 , M 1 >* YH ALF< M , K  >,'G S Q 

(3010)  94  CONTINUE 

(3011)  95  CONTINUE 

(3012)  NIN  =  NBEND 

(3013)  CALL  MAXIVCXHALF, NIN, YHALF, L, DETER<  ITWO, INDEX), 120) 

(3014)  IF  (NIN  GT  0  )  GO  TO  102 

(3015)  IU ARN( 2 ,  INDEX  )= 1 

(3016)  GO  TO  200 

(  3017)  102  1WARN(2,  INDEX  )*0 

(3018)  IF  ( ISO . EQ .0  )  GO  TO  200 

(3019)  IF  (IW.EQ.O)  GO  TO  97 

(3020)  DO  96  1*1, NBEND 

(3021)  DO  96  M*l, NBEND 

( 3022)  J  =  2*M-1 

(  3023)  XHALF<  I ,  M  )  *  YLX(I,J)/GSQ 

( 3024)  DO  96  K  =  l, NBEND 
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<  3023) 


<3026)  96 

<  302?) 

<  3028)  9  7 

<3029)  200 

<  3030) 


I 

s. 


3. 

I' 

i; 


r.5'Cin.!  ftSrnA«-.F»Rfcft?*«  I'AjiMf. 


<  3031  ) 
( 3032) 

<  3033) 
(3034) 
( 3039) 

<  3036) 
<3037) 

<  3038) 

<  3039) 
( 3040) 

<  3041  ) 

<  3042) 

<  3043) 

<  3044) 
< 3045) 

<  3046; 

<  3047) 

<  3048) 
( 3049) 
<3050) 

<  3051  ) 

<  3052) 
<3053) 

<  3054) 

<  3055) 

<  3056) 

<  3057) 
<3058) 

<  3059) 

<  3060) 

<  3061  ) 
<3062) 

<  3063) 

<  3064) 

<  3065) 

<  3066) 

<  3067) 

<  3068) 

<  3069) 

<  3070) 

<  3071  ) 
<3072) 
<3073) 

<  3074) 

<  3075) 

<  3076) 
<3077) 
U078) 

<  3079) 
<3080) 

<  3081  ) 
<3082) 
<3083) 
<3084) 


SUBROUTINE  ENTER< KS, KE , KW , NB , NF ■  I S, DT , F, SP , RT , X  I , I R,  I  DG  > 

INTEGER  STEP, FINAL. DIRECT ,P01NT6, POINT? 

C0HM0NXC0DA/K9< 20 ) 

DIMENSION  TABLX<60. 122  J.CN<  3, 10),  C0<4  ,  10,4  0  >,,  DU  2,  1 1  ),  V<  6  0  ),  F<  1 1  ) , 
+  SP<1D<RT<11  >,  XI  <  11  ).F1<4),SP1<4  > 

C  SET  UP  FILE  OF  INTERPOLATION  COEFFICIENTS 
DIRECT  *  0 
REWIND  KS 
REWIND  KE 
HF*NF~1 
N10-NB+1 
N20«NB+NB 
N202*  2*N20 
HI  *  1 
N2  =  NB 
NR  -  -1 

10  C-0.  70  I  *N1  ,  N2 

10=1 

IF  < I  . LE .NB  )  GO  TO  11 
ISTART  »  I -N8 
GO  TO  12 

11  ISTART  =  I 

12  I F< IS . EQ  1 . AND. N1 . G£ . N10)  GO  TO  60 

20  11=1 

N2  =  N2 

30  CONTINUE 

DO  50  J= 1 1 , M2 
J1  =  2+J-l 
REWIND  KS 
DO  40  N* 1 , NF 

READ  (KS)  SO,  F<N  >,  <  <  TABLX<  L,  M  >,  M*1  ,N202  ),  L=1  ,N20  ) 

40  SP<  N )  =  TABLX< 1 0 , J  1  ) 

IER-0 
NPTS  »  NF 

CALL  SPLINECNR,NF,RT,XI,F,SP,CN,KW,IER) 

IF  (IER.NE.O)  GO  TO  170 
DO  50  N* 1 , HF 

C0< 1 ,N, J  )»SP<  N  ) 

DO  50  L=I ,3 
M-L+l 

C0< H , N , J  )*CN(L  , N  ) 

50  CONTINUE 

I F<  M2  EQ .N20)  GO  TO  56 
H2=N2Q 
1 1*1 

I F<  II  .LT.N10)  I1=I1*NB 
I F< IS.EQ.O)  10*11 
GO  TO  30 

56  WRI T£( K£  )  I S, < <  <  < C0<  L  , M , J  ) ,  C0<  L  .  M , J ♦ NB  ) ) , L= 1 , 4  ) , J  =  I  ST AR T , NB  ) , 

♦  M*l ,NF  ) 

GO  TO  70 
60  1 1* I-NB 

M2-NB 
GO  TO  30 
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(  3085  > 

70 

CONTINUE 

I 

j 

(3086) 

1F<  IS.E8.0.0R.N2.EQ.N20)  GO  TO  80 

i 

<3087) 

N1-N10 

\ 

<3088) 

N2-N20 

<3089) 

CO  TO  10 

J 

<3090) 

80 

REWIND  KE 

> 

<3091) 

IF<  IS  £Q  .  1 >  GO  TO  160 

§ 

<3092) 

IROT-1 

| 

<  3093) 

100 

DO  110  I«l,NF 

<3094) 

110 

SP<  I  )*DT<  IROT/I  > 

i 

<  3093) 

NR*Q 

1 

<  3096) 

IF<NF.LE.4>  GOTO  300 

<  3097) 

PO I  NT  6*0 

<  3098) 

P0INT7*O 

% 

<  3099) 

IF<  NF . NE  .  5  )  GOTO  6 

| 

<3100) 

1 

NF 1  *3 

* 

4.. 

<3101) 

STEP*2 

i 

<  3102) 

3 

NRO  -  0 

1 

=i 

<  3103) 

DO  2  1*1 iNFl i STEP 

<3104) 

NR1  «  NRO+ 1 

2 

<3105) 

J  *1 +2  +  P0 INT  7 

i 

<3106) 

I F< I  . NE  . 3  >  GOTO  4 

V 

<  3107) 

J  *J  +P0 INT6 

1 

<3108) 

f 

JJ*1 

<3109) 

DO  5  II-I.J 

<3110) 

F 1<  J J )»F<  II  ) 

j 

<3111) 

SP1< JJ  )*SP<  II  ) 

i 

<3112) 

5 

=  JJ  + 1 

i 

i  3  U  3 ) 

NR*0 

i 

<3114) 

IER  *  0 

! 

<3115) 

NPTS  *  NF 1 

i 

<3116) 

CALL  SPLINE<NR,NF1,RT,XI,F1,SP1,CN,KU, IER) 

; 

<3117) 

IF  (IER.NE .0)  GO  TO  170 

j 

<3118) 

IF  <NR  .LE. 0  )  GO  TO  2 

<3119) 

CALL  ROOT A B<IR, IS, IROT, NR , RT ,NB ,NF, KE, KW , FI , CO, V. DIRECT,  IDG> 

s 

<3120) 

NRO  *  NRO+NR 

1 

<  3121 ) 

2 

CONTINUE 

I 

<3122) 

NR  *  NRO 

1 

<3123) 

GOTO  155 

i 

< 3124) 

6 

IF<  NF  .NE  .’6  )  GOTO  7 

\ 

<3125) 

PO I  NT  6*  1 

i 

<3126) 

GOTO  1 

* 

<3127) 

7 

IF<  NF . NE . ? )  GOTO  8 

; 

(3128) 

P0INT7-1 

| 

<3129) 

STEP-3 

S 

<3130) 

NF1-4 

<  3  i  3  i ) 

GOTO  3 

* 

(3132) 

8 

NF2*NF-l 

<3133) 

NRO  *  0 

<3134) 

DO  9  1*2, NF2 

1 

<3135) 

HR!  =  NRO+i 

<3136) 

A8SF* ABS<  SP< I  )) 

1 

(3137) 

ABSF 1  * ABS< SP<  1-1  >) 

<3138) 

ABSF2*A8S<  SP<  I I  )) 

% 

3 

3§ 


$ 


<3139)  I  F<  ABSF  GT  ABSF 1 . OR . ABSF . GT . ABSF2  )  GOTO  9 

<3140)  I HC  *1-1 

<3141)  IF<  ABSF1  .LT  ABSF2  )  I HC*  1-2 

<3142)  I F<  IHC  LT. 1  )  INC*1 

<  3  H  3 )  J  J »  1 

<3144)  l?  F  INAL*  1NC  +  3 

<3145)  I F<  FINAL . LE  .  NF  )  GOTO  16 

<3146)  INOINC-1 

<3147)  GOTO  17 

<3148)  16  DO  18  II«INC, FINAL 

<3149)  F 1<  J  J  >*F<  II  ) 

<3150)  SP1< JJ >«SP< II > 

<3151)  18 

<3152)  NF 1 =4 

<3153)  I £R  »0 

<3154)  NR*0 

<3155)  NPTS  *  NF1 

<3156)  CALL  SPLINE<NR, NF1 ,RT ,XI, FI, SP1 ,CN, KW, IER > 

<  3157)  IF  < IER  NE  0)  GO  TO  170 

<3158)  IF  (NR .LE. Q  >  GO  TO  9 

<3159)  CALL  ROOTABUR,  IS,  IRQT,NR,RT,NB,NF,KE,KW,Fl,CO,V,  DIRECT,  IDG) 

(3160)  NRO  »  NRO+NR 

<.3161)  9  CONTINUE 

<3162)  NR  >  NRO 

<3163)  GOTO  155 

<3164)  300  IER  *  0 

<3165)  INC  =  1 

<  3166  )  NPTS  »  NF 

<3167)  CALL  SPLINE<NR,NF,RT,XI,r ,SP,CN,KW,  IER) 

<3168)  IF  < IER . NE .0  )  GO  TO  170 

(3169)  IF  (NR.LE.O)  GO  TO  155 

<3170)  CALL  F.OQ  TAB<  IR,  IS,  IROT , NR , RT  ,  NB  >  NF, Kc ,  KW , F , CO , V  ,  DIRECT,  IDG  ) 

<  3171  )  155  IF  ( IS . EQ. 1 >  CO  TO  1 30 

<3172)  IF  UR0T.EQ.2)  GO  TO  120 

<3173)  WRITE  <  KW, 2000)  NR 

<3174)  2000  F0RNAT</29H  NO  OF  CO-ROThT I ONAL  ROOTS  =,I5/> 

(3175)  GO  TO  156 

(  3176)  120  WR I TE< KU , 200 1  )  NR 

(  3177)  2001  FQRHAT( 729H  NO  OF  CTR-ROT AT  I ONAL  ROOTS  *,157) 

<3178)  GO  TO  200 

(3179)  130  WRITE  (KW,2002>  NR 

(  3180)  2002  FORHA  T<  729H  NO  OF  COUPLED  ROOTS  »,I57) 

<  3181  )  GO  TO  200 

<  3182)  156  IF< DIRECT. Efi . 20  )  GOTO  200 

(3103)  IF( < IROT  .EQ .  2  ) .  OR  .  < IR . EQ . 1  . AND .  I S . Efi . 0  ) )  GO  TO  200 

<3184)  160  IRQT«2 

<3185)  GO  TO  100 

<  3186)  1  70  WRITE  <KW, 1000) 

<3187)  200  RETURN 

(3183)  1C00  FORMAT  C/49H  ERROR  ENCOUNTERED  DURING  EXECUTION  OF  SUBROUTINE, 

(3189)  +8H  SPLINE.  ) 

<  3  190  )  END 
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i 

<3191 > 

(3192) 

l 

<3193) 

<3194) 

<3195) 

S 

<3196) 

5 

<319?) 

| 

<3190)  HO 

<3199) 

V 

<  3200) 

<3201)  115 

k. 

<3202)  140 

f. 

<3203)  1000 

<3204)  141 

<  3205) 

1 

<3206)  1001 

fi.' 

i- ' 

*» 

<320?) 

jji 

<3208) 

s* 

<3209)  1141 

2 

<3210)  1011 

z- 

<3211) 

i 

<3212) 

\ 

<3213)  142 

\ 

<32 14)  1002 

| 

<3215) 

<3216)  143 

\ 

<321?)  1003 

<3213) 

<3219) 

<  3220) 

4 

<3221)  1004 

?* 

<3222) 

<3223) 

<  3224)  1  H3 

* 

<3225)  1014 

t. 

<3226) 

f 

<322?)  145 

S' 

<  3228) 

<3229)  150 

<3230)  100 

5 

<  3231  ) 

INTEGER  D!RECTTftB< IR ' 1 S ' 1 R0T ' HR  * R T, MB , HP . K E , KU, F . CO, V , D IRECT , IDG > 

DIRECT^  C0< 4,10,1 >'**<!  >'F<1  >>V<1) 

IP  <NR.£0,0>  CO  TO  iiO 
IP  < IS. EO. 1 )  CO  TO  143 
IP  < I  ROT-1 )  1 40 1  140/  142 

« 0  TO  US 

GO  TO  100 
DIRECT  *  20 
WRIT£<KW,1000> 

1  F0RHAT<'19H  CQ-ROTAT IQHAL  NODE) 

IF  < IR. £8. 1 >  CO  TO  1141 
yRIT£<xy,1001  > 

tznecuoH 

CO  TO  145 
yRITE  <Ky,1011> 

FORMAT?  (,'20X/  1  OH  RPA  e.v 

+  PE  )  ' 6X  »  42HL0C AT  I  ON  <IN>  DEFLECTION  SLO 

CO  TO  145 
NR  I TE<  KM , 1 002  1 

C0RT0T141°H  CTR"R0TftT10NftL  NODE) 

WR I TE<  KU  <  1 003  ) 

+  24HCTR-R0TATI0NALEC0KpSnEHT)'23HC0"R0TATI0NAL  C0Mf,°NENT,6X, 

IP  (IR.EO. 1)  GO  TO  1143 
WRITE  <  K«, 1004  ) 

<!«>.««» 

GO  TO  145 
WRITE  <KV, 1014) 

/s°LRS?£<2,X'!5x»  RPH  '^M3HL0CATI0N  <IN),2<2?H  DEFLECTION 
00  150  NP*t,NR 
RES*RT< HP ) 

CALLrBMODE  <IR,IS,JROT,Ne/NF,KW,KE,F,CO,RES,V,tDC> 

END 


i 


'  'r ' *■  1 


<  3232  ) 

( 3233) 

<  3234) 

<  3235) 

<  3236) 

<  3237  ) 

<  3238) 

< 3239) 

C 

<  3240) 

<  3241  ) 

<  3242) 

<  3243) 

10 

<  3244 ) 

<  3245) 

<  3246) 

<  3247) 

1  1 

<  3248) 

12 

<  3249) 

<  3250) 

<  3251  ) 

25 

<  3252) 

<  3253) 

30 

<  3254) 

<  3255) 

35 

<  3256  ) 

<  3257) 

<  3258) 

<  3259) 

<  3260) 

<  3261  ) 

<  3262) 

40 

<  3263) 

<  3264) 

<  3265) 

50 

<  3266) 

<  3267) 

60 

<  3268) 

( 3269) 

65 

<  3270) 

<  3271  ) 

71 

<  3272) 

<  3273) 

<  3274) 

72 

<  3275) 

<  3276) 

<  3277) 

73 

( 3278) 

<  3279) 

75 

<  3280) 

<  3281  ) 

70 

<  3282) 

<  3283) 

80 

<  3284) 

<  3285) 

SUBROUTINE  8HGDE< I  RUN. IS, IR.NB,NF,KW,KE,F,C,R,V,IDG> 

01  HENS  I  ON  F<  1  ),  C<  4, 10,  1  ),  V<  1  >,  X<  40,  40),PQSIT<  76  ),M6<  20)  ,F8<2G> 

+y<  60) 

C0NH0N7WUS,'H8,K8,X>  POSIT 
COMHON/CODA/K9<  20  > 

N40  ■  40 

RSG  s  39  .4784 1?60436*R*R 
GENERATE  INTERPOLATED  IHPEDANCE  MATRIX 
HP  =  NF - 1 
N2G*N8+NB 
N2*NB+-IS*NB 
DO  100  1=1 , N2 
IF  < I  .  L£  . MB  )  GO  TO  11 
ISTART  *  I-NB 
GO  10  12 
ISTART  =  I 

IF  (IS  .  EQ . 1  .AND.  I.GT.NB)  GO  TO  90 
11  =  1 
N2  =  NB 

READ  <  KE  )  IS,t(<(CCL,M,J),C<  L,  M,  J+H8  )  > ,  L*1  ,  4  ) ,  J  *  I S  P  T ,  NB  > ,  H  =  1  , 

fMF  ) 

DO  80  J  =  1 1 , M2 
K=  J 

IF  T IS. EQ. 1 >  GO  TO  35 
IF  CIR  EG. 2)  K=K+NB 
DO  40  L  =  1 ,  MF 
U=F<L  ) 

IF  tR.GT.U)  GO  TO  40 
I  0  =  I. 

GO  TO  50 
CONTINUE 
L*NF 

GO  TO  60 

IF  (R.EQ.U)  GO  TO  70 
L*LQ- 1 
D*R-F< L  > 

X(  !,  J  >*<  C<  1,1.,  K  >+D*<  C<2,L,K  )+D*<  C(3,L,  K)+D*C<  4,  L  ,  K  ))  ••  )/PSP 
IF  < J  .EQ  .  1 1 >  GO  TO  80 
IF  <11-1  )  71,72,73 
JO*J+NB 
10  » I-NB 
GO  TO  75 
JO*  J 
10*1 

GO  TO  75 
JO* J-N8 
I0=I+N8 

X<  JO, 10  >*X< I , J  ) 

GO  TO  80 

X<  I,J  )«CC1,L,K)/RSQ 
GO  TO  65 
CONTINUE 

IF  < I S . EQ . 0 )  GO  TO  100 
IF  < H2 . EQ . N20  )  GO  TO  100 


<  3286 >  H2*N20 

<  328?)  I i *  1 1 *NB 

<3288)  GO  TO  30 

<  3288)  80  1 1  * I-N8 

<3280)  H2*NB 

<3291)  GO  TO  25 

(3292)  100  CONTINUE 

<  3293)  REWIND  KE 

<3294)  C  CALCULATE  CHARACTERISTIC  VECTOR 
<3295)  IF  (TDG.NE.4)  GO  TO  5101 

<  3298)  WRITE  <KW,2000> 

<  3297)  2000  FORMAT  </30H  INTERPOLATED  STIFFNESS  MATRIX//'; 

<3298)  CALL  HATPRT< N2/ N2 , N40, N40 , X  ) 

<3299)  C  INVERT  INTERPOLATED  STIFFNESS  MATRIX 

<3300)  5101  IMAX  >  0 

<3301)  CALL  MAXIV(X/N2/X/ 1MAX/DET/N40) 

<3302)  IF  <N2 . GT . 0)  GO  TO  5102 

<3303)  WRITE  <KW,51  )  R 

<3304)  51  FORMAT  <34H1EXACT  RESONANCE  IS  ENCOUNTERED  AT , 1 PD1 2 . 5 . 4H  HZ,/ 

<3305)  *31 H  MODE  SHAPE  CANNOT  BE  COMPUTED.) 

<3306)  GO  TO  510 

<330?)  f 102  IF  < I DG . NE . 4 )  GO  TO  81 

<  3308)  WRITE  <KW,2001  ) 

<3309)  2001  FORMAT  </18H  MODE  SHAPE  MATRIX//) 

<3310)  CALL  MATPRT<N2,N2,N40,N40,X) 

<3311)  C  SEARCH  FOR  LARGEST  DIAGONAL  ELEMENT  OF  THE  MOBILITY  MATRIX 

<3312)  81  KM  AX  -  0 

<3313)  DO  103  I-1.N2 

<3314)  IF  <  K9<  I  ) .  EG  .  2  )  GO  TO  103 

<3315)  TRY  »  ABS<  X<  I, I  )) 

<3316)  IF  (KMAX.EQ.l)  GO  TO  101 

<3317)  KMAX  *  1 

<3318)  GO  TO  102 

<3319)  101  IF  <  TRY  .  LE . AMAX  )  GO  TO  103 

<  3320  >  102  IX  *  I 

<3321)  AMAX  *  TRY 

<3322)  103  CONTINUE 

<3323)  C  CALCULATE  NORMALIZED  MODE  SHAPE 

<  3324)  AMAX  *  X< IX, IX) 

<3325)  DO  104  I«1,N2 

<  3326)  V<  I  )  «  X(  I ,  I X  )/ AMAX 

<332?)  104  CONTINUE 

<3328)  C  PRINT  MODE  SHAPE 

<  3329)  IF  < I  RUN  .  EG  1)  R  *  60.0*R 

<  3330)  IT  I ME»1 

<3331)  DO  500  1*1, NB 

<3332)  H«M8<  I  ) 

<3333)  J T*K8< I  )-2 

<  3334)  IF  «'JT.LE.2)  GO  TQ  406 

(  3335)  IF  <  JT-5  >  404,403,402 

<3336)  402  JT=JT-1 

<333?)  403  J T*JT-3 

<  3338)  IF  < I T I  ME . EG . 2 )  GO  TO  405 

<3339)  ITIME-2 
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<  3341  > 

<  3342) 

<  3343) 
( 3344) 

<  3345) 
( 3346 ) 
( 3347) 
( 3348) 
( 3348) 
(3350) 

<  3351  ) 
( 3352) 

<  3353) 

<  3354  ) 
( 3355) 

<  3356) 

<  3357) 
( 3358) 
( 3359) 

<  3360) 
(  3361  ) 

<  3362) 
<3363) 

<  3364) 

<  3365) 

<  3366) 
<3367) 

<  3368) 

<  3369) 

<  3370) 

<  3371  ) 
(3372) 

<  3373) 

<  3374) 

<  3375) 

<  3376  ) 

<  3377) 
< 3373) 
v  3373) 

<  3380) 

<  3381  ) 
< 3382) 

<  3383) 

<  3384  ) 

<  3385) 

<  3386) 

<  3387) 

<  3388) 
( 3383) 

<  3390) 

<  3  391  ) 

<  3392  ) 

<  3393) 
<3394) 


wi-v<  n 

IF  < I S  EQ . 0 >  GO  TO  500 

Il-I+HB 

W3»V<  11  ) 

GO  TO  500 

404  JT-JT-2 
GO  TO  406 

405  ITIME-l 
W2*V<  I ) 

IF  < I S . EG . 0 )  CO  TO  410 

Il-I+HB 

W4«V<  ID 

IF  <  I  GT  .  1 >  GO  TO  425 

WRITE  <  KW/ 10 1  1  )  R/P0SIT<N)/W1/W2/W3/W4 

1011  FORMAT  < 20X# iPElt . 4, 5E15. 4) 

GO  TO  500 

425  UR  I T£<  KW  > 1 00 1 >  POS I T< N ) , U 1 , W 2 / W3 ,  W4 

1001  FORMATC 31X/ 1P5E15 . 4) 

GO  TO  500 

406  IF  <JT.EQ.2>  GO  TO  408 
IF  <IS.EQ. 1 )  GO  TO  407 
IF  < I .GT . 1  )  GO  TO  426 

WRITE  <  KW/  10 1 1  )  R  /  POSI T< N  )♦ V< I  > 

GO  TO  500 

426  WRITE<KW, 1001  )  POSIT<N)/V<I  ) 

GO  TO  500 

407  Wi =V< I > 

W3  =  V< I  +  NB ) 

IF  <  I  GT . 1 >  GO  TO  427 

WRITE  <  KW j 1012)  R, POSI T< N >, W 1 , «3 

1012  FORMAT  <  2GX< 1PE11 .  4  /  2E 1 5 . 4/ l  5X  /  E  1  5 . 4  ) 

GO  TO  500 

427  WRITE<KWi 1002  )  POS I T< N  ) , U 1 , W3 

1002  F0RMAT< 31X/ 1P2E1S . 4/ 15X/E15.4) 

GO  TO  500 

408  IF  < IS. EQ. 1  )  GO  TO  409 
IF  < I .GT . 1)  GO  TO  428 

WRITE  <  KW/ 1013)  R, POSITCN  ), V< I  ) 

1013  FORMAT  < 20X, 1  PE  1 1 . 4/ 2< E 1 5 . 4 , 15X  ) / El  5  4) 
GO  TO  500 

428  WR I TE<KW / 1 003  )  POS I T< N  ) / V<  I  ) 

GO  TO  500 

409  IF  < I .GT  .  1  )  GO  TO  429 

WRITE  (KW/1011)  R/POSITCN),  V(I  >/ V<I+NB> 
GO  TO  500 

429  UR  I  TE<  KW / 1 003  )  POS I T < N  ) , V< I  ) , V< I +N8  ) 

1003  FORMA T< 16X/3< 15X/ 1PE15.4)) 

GO  TO  500 

410  IF  < I .GT . 1  )  GO  TO  430 

WRITE  <  KW/  1011)  R  /  POSI  Tt  N  >/  W  1  /  W2 
GO  TO  500 

430  WRITE<KW/ 1001  )  POSIT<H  )/Wl/ W2 
500  CONTINUE 

510  RETURN 
END 
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<  3395 ) 

SUBROUTINE  HATPRTC Ml  >N1 »M2< N2> DMAT  > 

<  3390 

COHMON/UR/KU >  KR 

<  3397) 

DIMENSION  OMAT<  M2 / N2  ) 

<  3f398> 

UR  I TE(KW / 50 ) 

(  3399) 

DO  10  I  *  1  /  Mi 

( 3400) 

10 

URITE<KU«  100  )  <DHAT<  I,  J),J«l,Nl> 

(3401) 

URITE<KU> 150 ) 

<  3402) 

50 

FORNAT< 25N  *****  START  HATPRT  *****//) 

<  3403) 

100 

FQRHAT(1X#IP10E13.5) 

<  3404) 

150 

FORMAT< 725H  *****  END  MATPRT  ***•*) 

<  3405) 

RETURN 

( 3408 ) 

END 
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<3407) 

SUBROUTINE  «UHCON< KW , I R , I T, 10, NT) 

<3408) 

DIMENSION  IOC 4), NTs 16) 

<3409) 

WRITE  <  KW, 10  )  ID, NT 

<3410) 

10 

FORMAT  ( 1H1, 30< IN*), 19H CALCULATION  SUMMARY , 30< 1 H* )// 1 H  ,20A4) 

<3411) 

IF  (IR.EQ.O)  GO  TO  30 

<3412) 

CO  TO  <  100,200,300,400,500,600  ),  IR 

<3413) 

50 

WRITE  <  KW, 20 ) 

<  3414) 

20 

F0RMAK/34H  RSVP  SUPPLEMENTARY  DATA  AND  ORIGINAL  IMPEDANCE  MATRIC, 

<  341S) 

♦2HES) 

<  3414  > 

GO  TO  700 

<3417) 

100 

WRITE  <KW,  110) 

<3418) 

110 

FORMAT  </27N  CRITICAL  SPEED  CALCULATION) 

<3419) 

GO  TO  700 

<3420) 

200 

WRITE  <  KW,  210) 

<3421) 

210 

FORMAT  </19H  UNBALANCE  RESPONSE) 

<3422) 

GO  TO  700 

<3423) 

300 

WRITE  <  KW, 3)0) 

<3424) 

310 

FORMAT  < /35H  ASYNCHRONOUS  RESONANCE  CALCULATION) 

<3429) 

CO  TO  700 

<  3424 ) 

400 

WRITE  <  KW, 410  ) 

<3427)  , 

410 

FORMAT  C/22H  ASYNCHRONOUS  RESPONSE) 

<3428) 

IF  CIT.EO.  1)  GO  TO  420 

<3429) 

WRITE  <  KW, 41 1  ) 

<3430) 

411 

FORMAT  <  36H  EXCITATION  IS  OF  THE  ROTATING  TYPE.) 

<  3431  ) 

GO  TO  700 

<3432) 

420 

WRITE  <  KW, 42  1  ) 

<3433) 

421 

FORMAT  <  26H  EXCITATION  IS  STATIONARY.) 

<3434) 

GO  TO  700 

<3433) 

900 

WRITE  <  KW, 31 0  ) 

<  3436) 

310 

FORMAT  </23H  WHIRL  STABILITY  ANALYSIS) 

<3437) 

GO  TO  700 

<  3438) 

600 

WRITE  <  KW, 61 0  ) 

<  3439) 

610 

FORMAT  </32H  TORSIONAL  RESONANCE  CALCULATION,' 

<  3440) 

700 

RETURN 

<  3441  ) 

END 

( 3442) 

SUBROUTINE  BRGTA8<KW , I , K80, NB, K6 , IT , KZ , T , 8 , 0 ) 

<  3443) 

DIMENSION  T(  2,  1  ) ,  B<  2,  1  ),  C(  2 , 4  ) 

<  3444  ) 

IF  <  N8-K2 )  1,3,2 

<  3445) 

1 

HB  *  KZ 

<  3446 ) 

CO  TO  4 

<  344?) 

2 

LB  *  KB 

<  3448) 

MB  *  NB 

(3449) 

GO  TO  6 

(3450) 

3 

MB  *  NB 

(  3451  ) 

4 

LB  -  IT 

( 3452) 

DO  5  12*1,2 

( 3453) 

DO  5  JZ-1,2 

( 3454) 

JZ2  *  2* JZ 

( 3455) 

JZ1  *  JZ2-1 

<  3456 ) 

C< IZ, JZ1  )  *  BCI2, JZ) 

( 3457) 

Ci IZ, JZ2  )  *  0.0 

( 3458) 

IF  <  KB  NE. IT . OR .NB .NE, KZ)  CO  TO  5 

( 3459) 

C<IZ,JZ1)  -  CCI2/JZ1  )*T(IZ,JZ1  ) 

( 3460) 

C<IZ,JZ2)  *  C< IZ, JZ2  >+T( 12,  JZ2 )/0 

'.  3  461  ) 

5 

CONTINUE 

( 3462) 

GO  TO  8 

v  3463) 

6 

DO  7  IZ*  1  #  2 

( 3464) 

DO  7  JZ*  1 , 4 

( 3465) 

TO  *  T(  IZ,  JZ) 

<  3466  ) 

JZ1  «  2*<JZ72> 

( 3467) 

IF  < JZ1 . EQ . JZ  )  TO  *  TO/O 

( 3468) 

C<  IZ/ JZ)  -  TO 

(3469) 

7 

CONTINUE 

<  3470) 

CO  TO  < 10,20),  L8 

(  3471  ) 

WRITE  <  KU, 9 )  KB/I 

<  3472) 

9 

FORMAT  <  735H  ERROR  MESSAGE  **♦*  VALUE  OF  KBRG  ( 

,  13, 12H) 

( 3473) 

+,I3,35H  IS  ILLEGAL.  COMPUTATION  IS  HALTED.) 

(3474) 

CALL  EXIT 

<  3475) 

8 

IF  (LB.EQ.2)  CO  TO  PO 

<  3476) 

10 

WRITE<KW, 1 1 >  KBO, MB,<<C<M,N),N*t,4),M*l,2) 

<  3477) 

1 1 

FORMAT  (  13,I4,5X, 1H*, 12X,  1P8E1  1  .  4  > 

<  3478) 

GO  TO  100 

( 3479) 

20 

WR I TE(  KW , 2 1 )  KB0,MB/((C<M/N)/N*l,4),M*l/2) 

( 3480) 

21 

FORMAT  <  13  / 14, 13X, 1H*, 4X, 1P8E1 1 . 4 ) 

v  3461  > 

100 

RETURN 

<  3482) 

END 

329 


<3483) 

<3484) 

<3483) 

<3488) 

<340?) 

<3488) 

<3489) 

<3490) 

<3491) 

<3492) 

<  3493) 
<3494) 

<  3495) 

<  3496) 

<  349?) 

<  3498) 

<  3499) 

<  3300) 

<  3501  ) 

<  3502) 

<  3503) 
<3504) 

<  3505) 

<  3506) 

<  350?) 

<  3508) 

<  3509) 

<3510)  10 

<3511) 

<  3512  ) 


■5?  nrrrvv 


SUBROUTINE  R0TATE<  N1 ) 

120  >'YLX<  60.120), 2LX< 60,  120). 
+XHALF<20,40>,  YHALF<  20,  40)  ,  2HALF(  20.  40  )  ,  QHALF<  20 , 40  ) 

COHHON/BINV/XIN<60,122  >,XOU<60,i22)<&LX<2>,JROW^l  ),IC0U6n 

VU  10  I  *  1  /  N1 
L  -  H 1  ♦  I 
00  10  J • 1 , N1 
N  -  Nl+J 
J2  ■  2*J 


<Jt  ■  J2-1 
N2  «  2*M 
Ml  -  H2- 1 

ALX1  -  0.5*<XLX<I>dl  >+  XLX<  L , Ml  >) 
ALX2  «  0.5*<XLX<I,  J2)+XLX<L,M2)> 
BLX1  «  -0.5*<XLX<L,d2)-XLX( I  ,  M2  )  ) 
BLX2  »  0 .5*< XLX<L, dl  )-XLX< I , Ml >> 
CLX1  »  ALX1-XLX<L  , Ml  ) 

CLX2  «  ALX2-XLX<  L  *  H2  ) 

DLX1  «  BLX 1~XLX< I #  M2  > 

DLX2  a  BLX2+XLX< I , Ml  ) 

YLX< I ,  d  1  /  *  ALXl+BLXl 
YLX< I ,  d  2  >  =  ALX2+8LX2 
YIX<  I  /  Ml  )  *  CLXUDLX1 
YLX< I / M2  )  *  CLX2+DLX2 
YLX<  L / J 1  )  3  CLX1-0LX1 
YLX<  L  <  J  2  )  *  CLX2-0LX2 
YLX<L / Ml  )  -  ALM1-BLX1 
YLX<L,M2)  *  ALX2-BLX2 
RETURN 
END 


<3313)  SUBROUTINE  ORBTAB(  KW  -  N ,  M,  K/  SP ,  FR  ,  ft ,  B ,  S  ,  P  ,  PO  S I  T ,  I  PN  ) 

(3514)  DIMENSION  M(  1  ),  K(  1  >,  A<  i  ).  B(  t),  S<  1  :,PU  ) 

(3515)  DIMENSION  P0SIT(76) 

(3516)  IFdPN.EQ.l)  WRITE<KWj  10)  SP,FR 

(3517)  1C  FORHAT( //. IX/ 14HRESP0NSE  0RBIT/19H  ROTATIONAL  SPEED  =  •  i PE  1  1  4, 
(3518)  +4H  RPM/6X. 11HFRE8UENCY  =,1PE11  4  ,  3H  HZ/// 

<3519)  URITECKW.lOn 

(  3320)  101  FORHAT(  33X/42H**  PRINCIPAL  RADII  *■*  INCLINATION  PHASE/ 

(  3521  )  » 31 H  NO.  ST  N  LOCATION  DISPL  SlOPE. 5X  . 

(  3522)  +5HMAJ0R, 6X/5HNIN0R/7X,  5H<  DEG  ),  4X  •  9N  REFERENCE  /  4X  /,  1  1  NELLI  PT  I  Cl  TV  ' 

<  3523)  LO  *  0 

(  3524)  DO  60  I-l/N 

(  3525)  ELP*(A(  I  HBd  >)/<A(I  )-B(I  )> 

(  3326)  IF < ELP. CT. 1 . 0  )  ELP*1.0/ELP 

(  3527)  IC*M(I) 

(  3328)  l.F  »  K(  I  )-2 

(  3329)  GO  TO  ( 20/ 30 / 20 / 30 / 40/ 40 ) / LF 

(3530)  100  WRITE  (KW,11)  K(I)/K(I) 

(  3531  )  1  1  FORMAT  ( /33H  ERROR  MESSAGE  +***  VftL'JE  OF  K8  i  ,I3.PH  AT  STATION 
(7332)  +I3/33H  IS  ILLEGAL.  COMPUTATION  IS  HALTED  > 

( 3333)  CALL  EXIT 

(3534)  20  WRI  TE(  KW  /  2 1  )  I ,  M(  I  >/ POS  l T(  I G  ),  A(  I  ' .  B(  I  > /  Sd  / ,  Pd  / ,  £  L P 

(  3533)  21  FORMAT(  13/ 14/ F10. 4/5X/ lH*/9X/2(  1  X /.  1P2E1 1  4),2X/1PE1?  4) 

(3336)  GO  TO  60 

(  3537)  30  WRITE(KU,31)  I ,  M(I  )/ POS  1  T(  I G  ),  Ad  > ,  Bd  >,  S<  I  > ,  PC  I  > ,  El  P 

(3338)  31  FORMAT( 13/ I4/F10. 4,5X/ lH*,9X/2( IX , 1P2E11  4).2X,1PF12  4) 

(3339)  GO  TO  60 

(3540)  40  LO  *  LO+1 

(  3341  )  GO  TO  (  2  0/  50  )  /  LO 

(3542)  GO  TO  100 

(3543)  50  LO  *  0 

(3544)  GO  TO  30 

(3545)  60  CONTINUE 

(3546)  RETURN 

(3547)  END 


< 3548)  SUBROUTINE  XC I TAB< KW / I T , NO, M , K , P LX > 

(  354 9 >  DIMENSION  PLX<1  ) 

( 3SSO)  DIMENSION  H< 1 >,K< 1 > 

<  355  1  )  WRITE  <  KW, 10  ) 

<3552)  10  FORMAT  <ZZZZ16H  EXCITATION  DATA) 

<3553)  IF  (IT.Nt.O)  CO  TO  20 

<  3554  )  1 00  WRITE  <KW,  11  ) 

<  3555)  1  1  F0RMAT<Z9X<4<  1 H*  > , 6H  TYPE  <  4<  1  H*  ) .  2X<  5  <  I H*  ) ,  9  H  FORWARD  ,2:iX<5< 

<  3556)  +  1H*  >. IX  )  ,  8HB ACK WARD , 1 X  < 5<  1H*  )) 

<3557)  CO  TO  25 

<  3558)  20  WRITE  <KW<21  ) 

<  3559)  21  F0RMAT<Z9X<4< 1H*),6H  TYPE  <  4U  H*  )  <  2X<  5<  1 H*  )  <  1  OH  VERTICAL  ,5<1H* 

<  3560)  +  ),  2X.  4<  1H*  )<  1  2H  HORIZONTAL  ,4<1H*)> 

<3561)  25  WRITE  <KW<26> 

<  3562)  26  FORMAT  < 23H  NO.  STN  FORCE  HOME  NT , 2< 3 X, 8H I N-PH A SE < 6X < 5HL AG  )) 

<3563)  LO  *  0 

<3564)  DO  70  1*1. NO 

<3565)  12  *  2*1 

<3566)  II  *  12-1 

<  3567)  L  *  NO*- 1 

<3568)  L2  *  2*L 

<  3569)  LI  *  L2-1 

<  3570  )  LF  *  K< I  )-2 

<3571)  GO  TO  < 40, 50, 40,50.60. 60).  LF 

<  3572)  200  WRITE  < KW, 31  )  K< 1  ),H< I  > 

<  3573  )  31  FORMAT  <Z33H  ERROR  MESSAGE  ****  VALUE  OF  K8  <  <13.1 3H  )  AT  STATION 

<3574)  +I3.35H  IS  ILLEGAL.  COMPUTATION  IS  HALTED  ) 

<3575)  CALL  EXIT 

<  3576)  40  WRITE  <KW,41)  I,M<  I  ),PLX< 11  ),PLX< 12  ),PLX<1 1  )<  PLXCL2) 

<  3577)  41  FORMAT  < 13,14, 5X, 1H*. 12X, 1P4E1 1 . 4  ) 

<3578)  GO  TO  70 

<  3579)  50  WRITE  < KW, 51)  I,M< I),PLX< 11 >,PLX< 12  >,PLX<L1  ), PLXCL2) 

<3580)  51  FORMAT  ( I3.I4.12X, 1H#i5X, 1P4E11  4) 

<3581)  CO  TO  70 

<3582)  60  LO  *  LQ+1 

<  3583)  GO  TO  <40, 65  ),  LO 

<  3584)  GO  TO  200 

<3585)  65  LO  *  0 

<3586)  GO  TO  50 

<3587)  70  CONTINUE 

<3588)  RETURN 

<3589)  END 


<  3590) 

SUBROUTINE  ORBI T< I T, B, S , T , P , ULX1 , ULX2 , VLX 1 , VLX2  ) 

<  3591  > 

R  *  57.29578 

<  3592) 

IF  (IT.EQ.O)  CO  TO  1 

<  3593) 

RtX 1  »  0 . 5*ULX1 

<  3594) 

RLX2  »  0.5*ULX2 

<  3595) 

BLX 1  *-0 . 5*VLX2 

<  3596) 

BIX 2  »  0 . 5*VLX1 

<  3597) 

ALX1  »  RLX1+BLX1 

<  3598) 

ALX2  *  RLX2+BLX2 

<  3599) 

B L X 1  a  RLX1-BLX1 

( 3600) 

81X2  -  RLX2-BLX2 

<  3601  ) 

GO  TO  10 

< 3602) 

1 

ALX1  »  ULX 1 

( 3603) 

ALX2  a  ULX2 

<  3604) 

BLX 1  a  VLX 1 

( 3605) 

BLX2  »  VLX2 

<  3606) 

10 

F  »  SQRTC ALX 1 *ALX 1 +ALX2*ALX2 > 

<  3607) 

82  a  BLX1*BLX1+BLX2*BLX2 

<  3608) 

G  «  SQRT<82) 

<  3609) 

8  »  f+g 

<3610) 

S  *  f-G 

(3611) 

F  a  f/B 

(3612) 

G  =  G/B 

<3613) 

RLX1  a  < ALX1*BLX1*ALX2*BLX2  )/B2 

<3614) 

RLX2  =  < ALX2*BLX1-ALX1*BLX2  )/B2 

<3615) 

T  =  0 .5*R*ATAN2<RLX2,RLX1  ) 

<  3616) 

20 

X  =  ALX 1 +BLX 1 

<3617) 

Y  a  ALX2-BLX2 

<3618) 

P  »  R*AT  AN2<  V  »  X  ) 

<3619) 

RETURN 

<  3620) 

END 

<3421) 

SUBROUTINE  ASNTAB< K, NF , !U , F , 0, IS) 

i 

<3422) 

DIMENSION  I W <  2 f 1  )  •  F< 1 >  <  0<  2<  1  ) 

<  3423) 

DO  50  I  >  1 #  NF 

- 

<  3424) 

L  >  IW<1,I> 

<  342S) 

M  -  L+IW<2< I > 

f 

<3424) 

IF  <L.EQ.t  >  CO  TO  10 

r 

<342?) 

IF  CM. £0.1  )  CO  TO  20 

f 

<  3428) 

IF  <  I  S .  Efi .  1  >  GO  TO  5 

| 

<  3429) 

WRITE  <  K  < 100  >  F<I  ),<D<J,l  >,  J«l,2) 

1 

<3430) 

GO  TO  50 

1 

<3431) 

5 

WRITE  (  K  j 1 00 )  F< I >,D<2, 1) 

k 

<3432) 

GO  TO  SO 

I 

<3433) 

10 

WRITE  <  K  >200  )  F< I  )  <  <  D<  J  < I  )>  J  *1 < 2  ) 

| 

<  3434) 

CO  TO  50 

i 

<  3435) 

20 

IF  (H.EQ.2)  GO  TO  30 

i 

<  3434) 

WRITE  <  K > 300  )  F<I ),<D< J, I  ), J*1  -2  ) 

i 

<  3437) 

GO  TO  50 

i 

<  3438) 

30 

WRITE  ( K  j  400  )  F< I  )  <  <  Dt  J  < I  )/ J  >1 <  2  ) 

* 

<  3439) 

50 

CONTINUE 

l 

<  3440) 

100 

FORMAT  <  1PE11  .4,2<5X,EU.4>> 

Zr 

<3441) 

200 

FORMAT  < 1PE1 1 .4,2<5X,E1 1 .4)/ 5X » 34HF0RW ARD  WHIRL  MOTION  IS  CEGENERA 

| 

<  3442) 

+  TE  ) 

¥ 

K 

<3443) 

300 

FORMAT  < 1PE1 1 .4,2<5X,E1 1 . 4 >  ,  5X  ,  35HB ACKWARD  WHIRL  MOTION  IS  DEGENER 

i. 

<  3444) 

■•■ATE  ) 

■' 

<  3445) 

400 

FORMAT  <  1PE1 1  . 4  <  2<  5X  <  E 1  1  4  > , 5X  »  33HB0TH  WHIRL  MOTIONS  ARE  DEGENERnT 

i 

<3444) 

♦  E) 

%. 

EC 

<  3447) 

RETURN 

£ 

<  3448) 

END 

.a  'PU.-JF 


<3632)  C 

<  3633) 

<  3634) 
(3633) 

<  3656) 

<  3657) 

(3638) 
(3659) 
(3660) 
(3661)  10 

(3662)  30 

( 3663) 
(3664)  100 

(3665)  200 

( 3666) 


SUBROUTINE  SYNTAB< K, NS , IN ,S , D, ISO >  | 

DOUBLE  PRECISION  REAL  ALGEBRA  VERSION  OCT  3,  1S7S  | 

DIMENSION  18(2,  1  > ,  $(  1),0<  2,  1  >  1 

JSQMSO  +  1  | 

00  30  1*1 < NS  I 

RPN  -  60 0*S(  I  )  I 

L  *  I  U(  1  »  I  )  I 

IF  (L .EG . 1  )  GO  TO  10  1 

URI T£< K  »  100)  RPMi D( J  SO  »  I  >  f 

GO  TO  30  1 

WR I  TEC K •  200 )  RPM,D(JSO,I)  1 

CONTINUE  I 

RETURN 

FORMAT  ( 1PE1 1  4.5X,E11 .4)  I 

FORMAT  (1PE11  .  4  <  SX  <  E 1 1  .4/5X/27HF0RWARD  WHIRL  IS  DEGENERATE’* 

END  I 


i1'- 
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<  3667) 
(3668)  C 
(3668)  C 
(3670)  C 
(3671)  C 
(3672)  C 
(3673)  C 
(3674)  C 
(3675)  C 
(3676)  C 
(3677)  C 
(3678)  C 
(3679)  C 
( 3680) 

(  3681  ) 

( 3682) 

( 3683) 

( 3684) 

( 3685) 

( 3686) 
(3687)  100 

( 3688) 

( 3689) 

( 3690) 

(  3691  ) 

( 3692) 
(3693)  110 

( 3694) 

( 3695) 

( 3696) 

( 3697) 

( 3698) 

( 3699) 

( 3700) 

(  3701  ) 

( 3702) 

( 3703) 

( 3704) 

( 3705) 

( 3706) 

( 3707) 

( 3708) 

( 3709) 
(3710) 
(3711) 
(3712)  120 

< 3713) 

( 3714) 
(3715) 
(3716) 
(3717)  130 

(3718) 

( 3719) 

( 3720) 


SUBROUTINE  INVC  ( N , I  ERR  > 

INVERSION  OF  COMPLEX  MATRIX 
XOU  *  INVERSE  OF  XIN 
ORIGINAL  XIN  IS  DESTROYED 
N  *  RANK  OF  SYSTEM 

IERR  *  ERROR  FLAG,  RETURNED  AS  -1  IF  XIN  IS  SINGULAR 

IROW  =  INTEGER  ARRAY 

ICOL  *  INTEGER  ARRAY 

DLX  =  COMPLEX  DETERMINANT  OF  D 

XOU, XIN, IROW, ICOL, DLX  ARE  ASSIGNED  IN  LABELED  CQMH0N7BINV7 

COMMON 7 BINV 7 XIN(6Q, 122  ),XQU(  60, 122), DLX( 2),  IROW ( 61  ),  I CGL( 6  1  ) 

IERR  »  0 

DLX( 1  )  *  1.0 

DLX<  2  )  »  0.0 

N2  *  2*N 

DO  100  I  a  1 , N 

DO  100  J  a l , N 2 

X0U( I , J  )  a  X  I N( I , J  ) 

M  =  N  +  l 
M2  =  2*M 
MI  *  M2- 1 
DO  110  I  *  1 , N 
IRGU(  I  )  a  I 
ICOL( I )  =  I 
DO  250  K* 1 , N 
K2  a  2*K 
K 1  a  K2 -  1 
AREA  =  XOU(K, K1  ) 

AIMA  =  X0U( K , K2  ) 

AMAX  =  AR£A*AREA+AIMA*AIMA 

IC  =  K 

JCaK 

J  C  2  =  K2 

JC1  =  K  1 

DO  130  I a« , N 

DO  130  J  =K , N 

J2  a  2*J 

J1  *  J2-1 

BREA  a  X0U< I , Ji  ) 

BIMA  a  XOU< I , J 2  > 

BM AX  »  BREA*BREA+8IMA*BINA 
IF( BMAX-AMAX  )  130,  120,  120 
AMAX  =  BMAX 
IC  =  I 

JC  »  j 

JC2  =  J2 
JC1  =  Jl 
CONTINUE 

IF  (K  .EQ  .  IC)  GO  TO  131 
KI  =  ICOL(K) 

ICOL(K)  »  ICOL(IC) 
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<  3721  > 

<  3722  > 

<  3723) 

<  3724) 
( 3725) 

<  3726) 
( 3727) 

<  3728) 
( 3729) 

<  3730) 
( 3731) 

<  3732) 

<  3733) 
( 3734) 

<  3735) 

<  3736) 

<  3737) 

<  3738) 
( 3739) 

<  3740) 

<  3741  ) 
( 3742) 
< 3743) 
( 3744) 

<  3745) 
( 3746) 
( 3747) 
c  3748  ) 
( 3749) 

<  3750 ) 
( 3751 ) 

<  3752  ) 
(  3753) 
C  3754) 
(3755) 
(3756) 
( 3757) 
(3758) 
(3759) 
( 3760) 
(  3761  ) 
( 3762) 
(3763) 
( 3764) 
( 3765) 
( 3766) 
( 3767) 
( 3768) 
( 3769) 
( 3770; 
(  3771  ) 
( 3772) 

<  3773) 
( 3774) 


IC0L< IC  )  «  KI 

IF  ( K  EQ  JC>  CO  TO  134 

KI  -  IRQUCK) 

IRGWC  K  )  >  I R 0W(  JC  ) 

IROUCJC)  -  KI 

IF  CAMRX)  150,140, 150 

IERR  ■  -1 

GO  TO  320 

00  160  J *  1 , N 

J2  «  2* J 

J1  «  J2-1 

El  ■  XOUCK , J 1  ) 

E2  ■  XOUCK, J2> 

XOUCK, J1  )  *  X0UCIC,J1) 

XOUCK, J2>  *  XOUC I C , J 2 ) 

X0UCIC/J1)  -  £1 
X0UCIC/J2)  «  E2 
00  170  I«1,N 
El  »  XOUC I , K 1  ) 

E2  *  XOUC I , K2 ) 

XOUC I , K 1  )  «  XOUC I, JC1> 

XOUC  I ,  K2  )  *  XOUC  I ,  JC2 ) 

X0UCI,JC1>  =  El 

XOUC I , J C2 )  *  E2 

DO  200  1  =  1, N 

IF  CI-K)  190,  180,  190 

XOUC  I  , H 1  )  *  1.0 

XOUC  I  , M2  )  *  0.0 

GO  TO  200 

XOUC  I  , M 1  )  *  0.0 

XOUC I , M2  >  =  0.0 

CONTINUE 

PVT  =  XOUCK, KI) 

QVT  =  XOUCK,  K2) 

U  =  PVT 

V  =  QVT 

IF  CK  EQ  I C . AND  .  K . EQ . J  C  .  OR  K.NE  IC.AND  K.NE.JC)  GO  TO  205 
U  =  -U 

V  =  -V 

w  =  u*u+v*v 

PVT  =  PVT/W 

QVT  =  -QVT/W 

U1  *  DLXC 1  )*U-DLXC  2>*V 

U2  *  DLXC 1  )* V+DLXC 2)*U 

DLXC 1  )  =  U1 

DLXC2)  =  U2 

DO  210  J  =  1  ,  M 

J2  =  2*J 

J1  =  J2-1 

AREA  =  XOUC  K  ,  J  1  ) 

AIMA  =  XOUCK, J2) 

XOUCK,  Jl)  =  AREA*PVT-AIt1A*QVT 
XOUCK, J2)  =  AREA*QVT+AIMA*PVT 
DO  240  1=1, N 


I 


<  3775) 

I F <  I-K )  220 / 240 .220 

( 3776  > 

220 

BREA  *  XOUU.Kl  > 

<3777) 

BI  HA  *  XQU< I / K2  ) 

<3778) 

DO  230  <1*1, H 

<3778) 

<12  >  2*<J 

<3780) 

<11  •  <12-1. 

(3781) 

X0U<I,<I1>  *  XQU<I,J1  )-BREA*XOU<K,<ll  >+B IHA*XOU< K ,  J2> 

<3782) 

230 

XUU< I , J 2  >  -  X0U<I,J2>-8REA*X0U<K,J2>-8IMA*X0LKK,Ji  ) 

(3783) 

240 

CONTINUE 

<3784) 

DO  250  I  *1 ,  N 

<3785) 

XOU< I , K 1 >  -  XOU< I , HI  ) 

<  3786  > 

250 

X0UU/K2)  *  XOU<  I ,  H2  ) 

<3787) 

DO  280  1*1, N 

<3788) 

DO  260  1*1. N 

<3739) 

IF<  IROW<  I  )-L  )  260,270,  260 

<3790) 

260 

CONTINUE 

<3791) 

270 

DO  280  <1*1 ,  N2 

<3792) 

280 

XI  N<  L  ,  J  )  «  XQU<  I ,  J  ) 

<3793) 

DO  310  <1*1,  N 

<3794) 

<12  *  2* J 

<3795) 

Jl  *  J2-1 

<  3796) 

DO  290  L*1 ,  N 

<3797) 

L2  »  2*L 

<3798) 

LI  *  L2- 1 

<3799) 

IF<  ICOL<  J  >-L  )  290,300,290 

<  3800) 

290 

CONTINUE 

<3801) 

300 

DO  310  1*1, N 

<  3802) 

XQU< I , L 1  )  *  X I N < I , J 1  ) 

<  3803) 

310 

XOU< I , L  2  )  *  X  IN< I , J2  ) 

<  3804) 

320 

RETURN 

<  3805) 

END 
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( 3806) 

<  3807  >  C 
<3808)  C 
(3809)  C 
<3810)  C 
<3811)  C 
(3812)  C 
< 3813)  C 
(  3814'  C 

<  381 5  > 
<3816) 

<  3817) 
<3818) 
<3819) 

<  3820) 

<  3821  ) 

<3822)  100 

<  3823  > 

( 3824) 
<3823)  110 

<  3826) 

<3827) 
<3828)  120 

<3829)  130 

<3830)  140 

<  3831  ) 

<  3832) 

<  3833) 

<3834)  150 

<3835)  160 

<3836)  170 

<  3837) 

<  3838) 

<  3839) 

<  3840) 

<3841)  180 

<  3842) 

<3843)  190 

<  3844  ) 

<  3845) 

<  3846) 

<  3847  ) 

<  3848) 

<  384  9  ) 

<3850)  195 

<3851)  185 

<  3852) 

<  3853) 

<3854)  200 

<  3855) 


SUBPOUT  I  NE  MQUTC  <  ft  ,  L  ,  M  ,  NRA  ,  I R  ,1  C  ,  I  RL  8  B  ,  IC  L  AB  ,  l  l  HE  ,  K  U  ) 

8  IS  COMPLEX  ARRAY 

REAL  PARTS  ARE  IN  ODD  COLUMNS 
IMAGINARY  PARTS  ARE  IN  EVEN  COLUMNS 
IR  IS  ARRAY  OF  INDICES  FOR  ROW  'USED  WHEN  IP=1, 
IC  IS  ARRAY  OF  INDICES  FOR  COL  < USED  WHEN  IC«1> 
NR  A  IS  DIMENSIONED  NO  OF  ROWS  IN  A 
OUTPUT  FORM  RE. IN  X  XXXE  XX,  X  XXXE  XX 
LINE  IS  L  T  NE  NO  ON  PAGE  OF  FIRST  OU’PUT  LINE 

DIMENSION  A< NRA , 1 ) 

DIMENSION  IRL AB<  f),ICLAB<  l> 

IC1  *  1 
I A  1  «  1 

IC2  a  MINOCS.M) 

IA2  *  2* IC2 
LINE=LINE*2 
ILL  =  t 

I L  2  a  MINO  <  58-LI NE. L  ) 

IF  < I L2 . NE  L)  GO  TO  195 
IF  < IC. EQ  1 )  GO  TO  120 
WRITE  <  KW, 130  )  < I  , 1«IC1 , IC2  ' 

GO  TO  140 

WRITE  <  KW, 130  )  < ICLAB< I >, I-IC1 , 1 C2) 

FORMAT  </  123,4124/) 

DO  170  I  =  I L 1 ,  IL2 

IF  < IR. EQ. 1  )  GO  TO  150 

WRITE  <  KW, 160  )  I,< A< I,J  >,J*IA1,IA2> 

GO  TO  170 

WRITE  <  KW,  160  )  IRL  ABO  >,<A<  I ,  J  ),J  =  IA1  ,  IA2) 

FORMAT  <  16, 4X, 1P5<  El  2. 3, 1H, . Ell . 3  >) 

CONTINUE 

IF  < I .CE  ,L  >  GO  TO  190 

IL1  »  IL2+1 

IL2  *  MINO  <  I L2  +  58  , L  ) 

WRITE  <  KW, 180  ) 

FO RHA  T< /  ) 

GO  TO  110 

IF  <IC2,G£.M  )  GO  TO  200 

IC1  =  IC2+1 

I A  1  =  IA2+1 

IC2  a  MINO  < IC2+5/M) 

IA2  =  2*  IC2 
LINE=LINE+2 
GO  TO  100 
WRITE  <  KW, 185 ) 

FORMAT< 1  HI ) 

LI NE=0 
GO  TO  100 
RETURN 
END 
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( 3896) 

<  385? ) 
( 3858) 

<  3858) 
( 3860) 

<  3861  ) 
( 3862) 
< 3863) 
(  3864  ) 

<  3865) 

<  3866) 

<  3867) 

<  3868) 

<  3869) 

<  3870) 
(  3871  ) 

<  3872) 

<  3873) 

<  3874) 

<  3875) 

<  3876) 
(  3877) 

<  3878) 
(3879) 
( 3880) 

<  3881  ) 
<3882) 

<  3883) 
(3884) 
( 3885) 

<  3886) 

<  3887) 

<  3888) 

<  3889) 

<  3890) 

<  3891  ) 

<  3892) 

<  3893) 

<  3894) 

<  3895) 

<  3096) 

<  389?) 

<  3898) 

<  3899) 

<  3900) 

<  3901  ) 

<  3902) 

<  3903) 
( 3904  > 
<3905) 

<  3906) 
(390?) 

<  3908) 
(3909) 


SUBROUTINE  KRAUT£(NF.N8,KS,KE,KW, I T , I S , F , V , I  RUN , TA8LX - PLX . WIX, 
+8IG, SMALL, SLANT ,  PHASE. JOG  ) 

DIMENSION  TflBLX(60,l  ),  PLXl  1  ) » WLX(  1> 

DIMENSION  ALX(  22)  •  AOLX(  22  ),  A  A2  LX<  22  >,  OOLX<  20  > ,  D  1  LX<  <  ,  22  ),  ULX  *  2  2  , , 

+  Y1LX<  22  ),ZZLX(6  >, DETLXC  2, 22  ) 

DIMENSION  F<  1  >,  Y(  1  ),M8(  20>,K8<20>,BIG(  1  )  • S  M ALL<  1  ) 

DIMENSION  X(  40,  40  )  ,  POS I  T<  76>,RET<  11  ),XINT<  1 1  > 

DIMENSION  Al< 10, 10  ), Bl<  10 , 1 0  ) . AC 5  c 1 0  ;  , AM8<  10)  . AN  9*'  10  ’  .B<  1 0 EOc  10  ' 
+  , 02(11), Zl(3>10), 22(3,  1 0>,FSR<  11  •  .SLANT'  1  '  PHASE*  1  >,  AM7<  10  - 

DIMENSION  !RLAB(40  ),  ICLABC  40  ) 

COHHON/BMAT/XLX<  6  0 , 1  20  ', YLXC  60 , 1  20  ) , ZL X<  60 ,  120  ' . 

♦  XNALF<20,40), YH AL F ( 2 0,  40 ) , 2H AL F<  20, 40  >,QHALF<  20, 40  » 
CONMON/BINV/XIN<'60,1  22  ).X0U<60,i22),DlX(2'  IR0U<  61  ' ,  I  COL<  6  1  > 
C0MH0N/WUS/H8,K8, X,POSIT 
CON HON/C 00 A/ K9< 20  ) 

CONMON/WUSA/RET ,XINT 

COHMON/XGCON/SLOW , RLAX,  I  GEN 

COMMON/ W R/LW , LR 

COHNON/C0EG/IBEG 

LINE  «  0 

N40  «  40 

M6«60 

JR- 1 

IF  <  I  GEN  )  1,810,2 

1  K5HAX  »-IGEN 
GO  TO  3 

2  K5MAX  «  IGEN 

3  CONTINUE 

C  CREATE  MATRIX  INTERPOLATION  FILE 

MF  »  NF-1 
MF2  «  2*MF 
N1  »  1 
N2  =  N8 
N10  *  N1+N8 
N20  *  N2+HB 
N202  =  2  *N20 
ISP  =  -1 

10  DO  60  I=N1 ,N2 

DO  30  J  =  I ,  N2 
J2  *  2* J 
J1  »  J2-1 
REWIND  KS 
DO  15  K  *  1 »  NF 
K2  *  2*K 
K1  «  K  2  —  1 

FSQ(K>*6  28318530?**2*<  F<  K)*F<«)  ) 

READ  (KS)  SPD,FRE, <( YLX( IA, J  A  ) ,  J  A  =  1 ,N2  02  ), I  A  =  1 , N20  ) 

IF( (FRE-F(K) ) .LE. 1 .E-5  )  GO  TO  14 
WRIT£(KW,1000>  K 

1000  FORMA T( 44H1FAULTY  DATA  IN  FILE  (KS;  AT  FREQUENCY  POINT,  13) 

REWIND  KS 
REWIND  KE 
CALL  EXIT 

14  I F  < IRUN  ,£Q.  2  OR.  1RUN  EQ  4)  READ  < KS  )  ( PLX< I  A  )  , I A  =  1 , N202  ) 
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t 

*. 


S' 


! 3910) 

(3911) 

15 

(3912) 

(3913) 

( 3914> 

20 

(3915) 

(3916) 

(3917) 

(3918) 

(3919) 

25 

(3920) 

(3921) 

(3922) 

(3923) 

( 3924) 

30 

(3925) 

(3926) 

(3927) 

(3928) 

(3929) 

( 3930) 

(3931) 

(3932) 

(3933) 

( 3934) 

! 3935) 

( 3936) 

34 

( 3937) 

(3938) 

(3939) 

(3940) 

40 

(3941) 

42 

( 3942) 

(3943) 

(3944) 

45 

( 3945) 

(3946) 

( 3947) 

50 

(3948) 

(3949) 

(3950) 

(3951) 

(3952) 

(3953) 

55 

(3954) 

(3955) 

(3956) 

! 3957) 

( 3958) 

60 

( 3959) 

(3960) 

(3961) 

( 3962) 

(3963) 

65 

ULX<  K 1 )  *  YLX(  I  <<J  1  ) 

ULX( K2  >  »  YLX! I , J 2  > 

DO  20  K-l/NF 
Ki  ■  2*K-1 
Y(  K  >  ■  ULX<  K 1 > 

CALL  SPLINE! I 8P,NF,RET, XINT, F, Y,Z1,KW, IER) 
IF  (IER.NE.0)  GO  TO  806 
DO  2S  K* 1 , NF 
K2  >  2*K 


Y<  K  )  ■  ULX( K2  ) 

IER  >  0 

CALL  SPL  1NE< I SP , HF , RET , XI NT , F, Y, Z2, KW ,  IER) 

IF  (IER. HE. 0)  GO  TO  806 

WRITE  <  KE  >  (  (  ULX(  K  ),  K"1  ,NF2  )  ,(  (Z1  (  I  A,  K  ),  Z2(  I A ,  K  )  >,  IA*  1 , 3  ) ,  K*  1 ,  NF  > 
CONTINUE 

IF  (IS.EQ.O)  GO  TO  60 
REWIND  K8 
DO  49  K« 1 , NF 
K2  «  2*K 
Kl  «  K2-1 

READ  <K3  )  8PD,FRE,((YLX(IA,JA),JA*1,H202>,IA*1,N20> 

IF<(FRE“F<K)>.LE. 1 .E-i)  UO  TO  34 

WR I TECKW ; 1 000  >  K 

REWIND  K8 

REWIND  KE 

CALL  EXIT 

1F( 1RUN . EQ . 2  .OR.  1RUN.E0.4)  READ  < KS >  ( PL X( I  A > , I A*1 , N202  ) 

IF  (N1 .EQ. 1)  GO  TO  40 
J  -  I-N8 
GO  TO  42 
J  -  I *NB 
J2  «  2* J 

J1  .  JZ-l 

ULXCK1)  =  YLX(I, J1  ) 

ULX(K2)  *  YLX! I , J2  > 

DO  50  K»1,NF 
KI  ■  2*X-1 
Y(K)  «  ULX(  K  1  ) 

IER  -  0 

CALL  SPLINE! I SP , NF ,RET , XI NT , F , Y, 2 1 , KW , IER  ) 

IF  ^IER.NE.O)  GO  TO  806 
DO  55  K»1 , NF 
K2  -  2*K 
Y<  K  )  ■  ULX(K2) 

IER  ■  0 

CALL  SPLINE! ISP, NF, RET, XINT, F,Y,Z2,KW, IER) 

IF  (IER.NE.O)  GO  TO  806 

WRITE  (KE)  !  (  ULX!  K  >,  K=  1  ,  NF2  ) ,  (  (  2 1  (  I  A,  K  ),  Z2(  I A ,  K  )  ) ,  I  A*  1 , 3  )  ,  K«=  1 ,  NF  ) 
CONTINUE 

IF  ( N 1 . EQ. N10  )  GO  TO  65 
HI  *  N10 
N2  >  N20 
GO  TO  10 
1R0T  «  1+IS 


k 

i 
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<3964) 

C 

BEGIN  ITERATION  FOR  EIGENVALUE 

<  3965 ) 

C 

K05H  NUMBER  OF  EICEN  ROOTS  FOUND 

(3966) 

C 

K05  ROOT  NUMBER  BEING  SOUGHT 

< 3967 > 

100 

K05M  *  0 

<3968) 

K8EG  *  0 

<  3969  > 

JBEG  *  0 

<  3970) 

101 

IF  <IBEG. EQ.O. AND. JBEG. EG  .0  )  GO  TO  105 

<  3971  ) 

102 

IF  <  KBEG . GE . K5HAX  )  GO  TO  5001 

<  3972) 

K8EG  *  KBEGM 

(3973) 

IF  (IBEG.EQ.G)  GO  TO  102 

<  3974) 

KP 1 9  *  1 

<  3975) 

READ  <  LR / 3000  )  P10.C5 

<  3976) 

3000 

FORMAT  <  2D20 . 4 ) 

<  3977  ) 

105 

K05  *  K05M+1 

( 3978) 

K052  *  2*K05 

( 3979) 

K05 1  *  K052-1 

<  3980) 

IDO WN  *  0 

(  3981  ) 

KDOWN  *  0 

<  3982) 

RESOLD  *  U.O 

<  3983) 

P7  -  0. 

<  3984) 

KP9  »  0 

(3985) 

IF  (IBEG.NE.O)  GO  TO  120 

<  3986) 

C5  *  0 

<  3987) 

KP19-0 

<  3988) 

C 

COMPUTE  DETERMINANTS  AT  CONTROL  FREQUENCIES 

<  3989) 

120 

CONTINUE 

<  3990) 

REWIND  KS 

<  3991  ) 

K  =  0 

<  3992) 

121 

K«K  +  t 

<  3993) 

K2  *  2*K 

<  3994) 

Ki  *  K2-1 

(  3995) 

READ  <  KS  )  SPD,FRE,<<YIX<I,J>,J«1.  N202  ),I*I,N20' 

<  3996) 

IF< I RUN  EQ . 2 . OR . I  RUN  .  EQ  4)  READ' KS  )  < PL X< ID  ) , I 0= 1 , N202  > 

<3997) 

CSK  »  C5/F»K) 

<  3998) 

DO  160  L  *  l ,  2 

<  3999) 

IF  (IS.EQ. 1  )  GO  TO  130 

<  4000) 

IF  UROT.NE.L)  GO  TO  160 

<  4001  > 

130 

MB  *  <  L- 1 )#NB 

<  4002) 

LB  »  <2*L-3)*N8 

( 4003) 

DO  140  1*1, NB 

<  4004) 

10  *  I+MB 

(4005) 

12  *  I+NB 

(4006) 

DO  135  J  =  1 ,  N8 

(  4007) 

JO  *  J+MB 

<  4008) 

J 02  *  2*J  0 

<  4009) 

J01  *  J02-1 

(4010) 

J1  *  JO-LB 

<4011) 

J 1 2  *  2*J  1 

<4012) 

Jll  »  J 12-1 

(  4013) 

T  ABLX<  I 0, JO  1  )  -  YLX< 10 , J  01  )/F SQ(  K  > 

<  4014) 

TABLX< 10, J02  )  *  YLX<I0,J02  >/FSQ(K> 

<4015) 

F  < I . £Q . J )  TABLX< 10, J02  )  *  T ABLX< 10 , J02 )-C5K 

<4016) 

IF  US. EQ.O)  GO  TO  135 

<4017) 

T  ABLX<  10,  Jll  )«YLX<IO,  Jll  )/FSQ<K) 

J42 


(4018) 

TABLX(  10, J12 )«YLX<  10, J 12  >7FSQ(K  ) 

(4019) 

115 

CONTINUE 

<  4020) 

140 

CONTINUE 

(  4021  ) 

1  60 

CONTINUE 

( 4022) 

IP  I D  *  0 

( 4023) 

CALL  PINVC(IPI0,KW.NB,N40,N40, IS, 1R0T,T«6LX,J0G' 

<  4024) 

C 

FACTQR1 2AT ION  OF  KNOWN  EIGENVALUES 

( 4025) 

IF  (K05 . EQ  1  )  CO  TO  205 

(4028) 

K17  *  0 

( 4027) 

A4LX1  *  0.0 

( 4028) 

A4LX2  *  0.0 

l 4029) 

A1LX1  =  1  0 

( 4030) 

A1LX2  =  0.0 

(  4031  ) 

00  195  K0?=1 , k05« 

( 4032) 

KO 72  *2*K0? 

( 4033) 

KO  7 1  =  K072-1 

<  4034) 

Q  *  Q2(K0?> 

( 4035) 

XQ  *  F(  K )*F( K  ) 

( 4036) 

U  =  AH8<  K07  ) 

( 4037) 

SIZES  -  E0(K07VXQ 

( 4038) 

AX  *  SIZE8-U 

(4039) 

AY  »  AM7(K07  )/XQ-C5/F<  K  ) 

( 4040) 

SI2EA  =  AX+AX+A Y* A Y 

(  4041  ) 

SIZEB  =  SI ZEB*S I2£B*2  5D-08*RLAX 

(  4042) 

IF  (SI2EA  GE  SIZEB  )  CO  TO  180 

( 4043) 

WRITE  ( KW, 1010)  K 0 7 

( 4044) 

1010 

FORMAT  ( /A 4H  TRUNCATION  UNCERTAINTY  ENCOUNTERED  AT  ROOT  , 12, 1 H  > 

(4045) 

K1 7  =  K07 

( 4046) 

A4LX1  =  0.0 

( 4047) 

A4LX2  *  0.0 

(4048) 

A1LX1  *  1.0 

( 4049) 

A1LX2  =  0.0 

(4050) 

DLX(  1  )  =«-Q*D  1  LX(  1  ,  K072  ) 

( 4051 > 

0LXC2  )  =  Q*D 1 LX( 1 , K071  ) 

( 4052) 

GO  TO  195 

( 4053) 

180 

B2LX1  =  AX 

( 4054) 

B2LX2  =  AY 

( 4055) 

A1LX0  -  A1LX1*B2LX1-AILX2*B2LX2 

( 4056) 

A1LX2  *  P1LX1*B2LX2+A1LX2*B2LX1 

( 4057) 

A1LX1  ■  A*  LXO 

( 4058) 

B2LX0  «  B2i.Xl*B2LXl  +  B2LX2*B2LX2 

( 4059) 

A4LX1  »  A4LX 1 +B2LX2/B2LX0 

( 4060) 

A4LX2  *  A4LX2+B2LX 1/B2LX0 

( 4061 ) 

195 

CONTINUE 

( 4062) 

A1LX0  =A1LX1*A1LX1+A1LX2*A1LX2 

( 4063) 

AOLX( K1  )  *  A1LX1/A1LX0 

(4064) 

A0LX(K2)  “-A1LX2/A1LX0 

(4065) 

AA2LXC K 1  )  *  A4LX1 /F( K ) 

( 4066) 

AA2LXC  K2  )  *  A4LX27F(K) 

(4067) 

ORE  «  A0LX(K1  )*DLX<1  )-A0LX(K2)*DLX(2) 

( 4068) 

DIM  *  A0LXCK1  )*DLX(2)+A0LX(K2)*DLX<  1 ' 

(4069) 

DLX( 1  )  *  ORE 

(4070) 

OLX< 2  )  «  DIM 

(4071) 

205 

DETLX< I  ROT , K 1  )  -  0LX<1  ) 

343 


< 4072) 

D£TLX< IROT /K2  >  *  DLX<2> 

<  4073  > 

IF  < K . L T . NF )  GO  TO  121 

<4074) 

C 

DETERMINANT  INTERPOLATION 

<4075) 

ISP  *  1 

<  4076) 

IF<  KP 19 . EQ . 1 )  GO  TO  228 

( 4077) 

IF  <K8£G  .EQ,0 .AND . I8EG . EQ  -1  )  GO  TO  228 

<  4078) 

DO  226  K* 1 <  NF 

<  4079) 

K2  «  2*K 

<  4080) 

K1  *  K2- 1 

(  4081  ) 

226 

Y<  K  )  «  ALOG10<<DETLX<IROT<K1  >**2+ DE7LX<IR0T#K2>**2 >*10.0+1 .0) 

<  4082) 

NI* 100 

<4083) 

IER  *  0 

<  4084) 

CALL  SPLINE<NI<  NF< RE T<XINT<F<Y<21 <  KW < IER) 

<  4085) 

IF  < IER . HE .0 )  GO  TO  806 

<  4086) 

IF< NI .EQ .  1  . AND. RET< 1  ). GE. F< 1  ). AND  RET<  l  )  .  LE  F<NF>>  GO  TO  227 

<  4087) 

P10  =  SQRT<  F  < 1 >*F< NF  >) 

<  4088) 

GO  TO  228 

<4089) 

227 

P10*R£T<  1  ) 

<4090) 

228 

DO  230  K*1 <  NF 

<  4091  ) 

K2  *  2*K 

<4092) 

K1  *  K2-1 

<  4093) 

Y1LX<K1  )’  =  DETLX<  I RO T<  K 1 ) 

<  4094) 

230 

Y<  K  )  *  Y  1  LX<  K  1 ) 

<  4095) 

XI NT< 1  )  =  P10 

<  4096) 

IER  *  0 

<  4097) 

CALL  SPLINE!  ISP<NF<RET<XINT<F<Y<Z1<KM< IER) 

<  4098) 

IF  < I ER . NE . 0  )  GO  TO  806 

<  4099) 

P7  *  RET< 1  ) 

<4100) 

DO  235  K*1,NF 

<  4101 ) 

K2  2*K 

<4102) 

Y1LX<X2  )  *  DETLX<  IROT<  K2) 

<  4103) 

235 

Y<  K  )  *  Y  1 L X<  K2) 

(4104) 

IER  =  0 

<4105) 

CALL  SPLINE! ISP<NF<RET<XINT<F<Y<Z2<KW<  IER) 

<4106) 

IF  < I ER . NE . 0  )  GO  TO  806 

<4107) 

R4LX1  =>  P? 

<4108) 

R4LX2  *  RET! 1  ) 

<4109) 

C  LOCATE  FREQUENCY  INTERVAL 

<4110) 

KQ*  1 

<4111) 

DO  1115  IK*i <  MF 

<4112) 

IF  <P10 . GE ,F< IK  )>  GO  TO  1 <15 

(4113) 

KO* IK-1 

<4114) 

GO  TO  236 

<4115) 

1115 

CONTINUE 

<4116) 

KO»MF 

<4117) 

236 

DF  =  P1 0- F<  KO  > 

<4118) 

DO  240  K  =  1 <  3 

<4119) 

K2  =  2*K 

<4120) 

Ki  =  K2-1 

<  4121 ) 

2  2  L  X  <  K 1  )  =  2  1  <  K  <  K  0  ) 

(4122) 

240 

22LX<  K2  )  =  2 2<  K  <  KO  ) 

<4123) 

R5LX1  =  22LX<  1 ) 

<4124) 

R5LX2  =  22LX<  2) 

<4125) 

DOLX<  K05 1  )  *  2 . 0*22LX<  3  ) 

344 


<4126) 

<412?) 

<4128) 

(4129) 

<4130) 

<  4131 > 
<4132) 
<4133) 
<4134) 
<4135) 
<4136) 
<413?) 
<4138) 
<4139) 
(4M0) 
<4141) 
<4142) 
<4143) 
<4144) 
<4145) 

<  4146) 
<414?) 
<4148) 
<4149) 
<4150) 
<4151) 
<4152) 
<4153) 
<4154) 
<4155) 
<4156) 
<4157) 
<4158) 
<4159) 

<  4160) 

<  4161 > 
<4162) 
<4163) 

<  4164) 

<  4165) 
<4166) 
<4167) 

<  4168) 
<4169) 
<4170) 
<4171) 
<4172) 
<4173) 
<4174) 
<4175) 
<4176) 
<4177) 
<4178) 
<4179) 


242 

243 
C 


245 


DGLX<  KQ52 )  «  2.0*ZZLX<4> 

IF  <0F. EG. 0.  )  GO  TO  241 

R5LXI  *  R5LX1+DF*<2.0*ZZLX<3)+3.G*DF*ZZLX<5)> 

R5LX2  *  R5LX2+DF*<2.0*2ZLX<4)+3.0*DF*ZZLX<6>> 

DOLX<  K05  1  )  *  DOLX<  K051  >+6  .  0#DF*22LX(5  ) 

DOLX<  K052  )  »  DQLX< K052  >  +  6 .0*0F*ZZLX<6 ) 

241  CONTI  NOE 

RESNEW  =  R4LX1**2+R4LX2**2 
IF  <  KP9 . EQ . 0  )  GO  TO  243 
RESRHT  =  RESNEW/RESOLD 
IF  < I  DOWN . EQ . 1)  GO  TO  242 
IF  (RESNEW. LE. RESOLD)  GO  TO  243 
KDOWN  *  KDOWN+1 
IF  (KDOWN . EQ . 4  >  GO  TO  393 
IDOWN  *  1 
GO  TO  243 

IF  (RESNEW. LE .RESOLD )  IDOWN  =  0 
RESOLD  *  RESNEW 

COMPUTE  C-DERIVATI VES  OF  DETERMINANTS  AT  CONTROL  FREQUENCIES 
REWIND  KS 
K  *  0 
K  *  K  +  i 
K2-2*K 
K1-K2-1 

READ  <  KS  )  SPD,FRE, << YLX<  I ,  J ) ,  J  =  1 , H202 ) , I  =  1 , N20 > 

IF<  IRUN . EQ . 2 . OR . I  RUN . £8  4)  READ<  K  S  )  <  PLX<  I Q  ) »  18*1, N2 02) 

P5RE  =  0.0 
P5IM  ■  0  0 
C5K  =  C57F( K  ) 

XI  =  1  .  /  F<  K  ) 

DO  330  N*  1 , 2 
IF  (IS.EQ. 1)  GO  TO  252 
IF  (IROT.NE.N)  GO  TO  330 
252  MA*<  N-i  >*NB 

DO  325  M  =  1 ,  N  0 
MX=M+MA 
MX 2  *  2*MX 
MX  1  =  MX2-1 
DO  310  L*l,2 
IF  (IS.EQ. 1)  GO  TO  255 
IF  (IROT.NE.L)  GO  TO  310 
255  MB  *  <  L  -  1  >#NB 

LB  »  <  3-2*L  >*NB 
DO  280  1*1, MB 
10  =  I+MB 
12  *  I +  N8 
DO  275  J=1 , NB 
JO  *  J  +  HB 
J02  *  2* JO 
J01  *  J02-1 
J1  *  JO+LB 
J 1 2  *  2* J 1 
Jll  *  J12-1 
IF  <  I  .EQ  .  J  )  GO  TO 
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',4180  ? 

TABLX< 10. J01  )  *  YLX(  10,  J01  )/FSQ(  K  > 

6 

( 4181 ) 

TA8LX( I  0  ,  J02  )  «  YLX( 10 , J02 )/FSQ( K  ) 

: 

(4182) 

IF  (IS.EQ.O)  GO  TO  275 

j 

(4133) 

TA8LX< I0>J11  )  =  0.0 

(4184) 

TABLX( I  0  ,  J  12  )  =  0.0 

* 

(4185) 

GO  TO  275 

(4186) 

265 

IF  (N.NE  L.OR.I.NE.M)  GO  TO  270 

(418?) 

(4188) 

TABLX( 10, J01 )  *  1 . 0 

TABLX( 10,302 )  «  0.0 

(  418<‘) 

GO  TO  272 

(4190) 

270 

TA8LX( 10, J01 )  *  YLX<  I0,J01)7FSQ(K> 

(  4191  ) 

TABLX( 10, J02 )  *  YLX(  10,  J02)/FSQ(  K  >-C5K 

i 

(4192) 

272 

IF  (IS.EQ.O)  GO  TO  275 

j 

(4193) 

TABLX( 10, Jll )  ■  YLX( 10, J 1 1 >/FSQ( K  ) 

* 

(4194) 

TABLX( 10 , J 12  )  *  YLX( 10, J12)7FSGK K  ) 

1 

(4195) 

275 

CONTINUE 

1 

(4196) 

260 

CONTINUE 

| 

(4197) 

310 

CONTINUE 

F 

gr 

(4198) 

IP I D  -  0 

& 

(4199) 

CALL  PINVC(IPID,KW,NB,N40,N4Q, IS, IROT , TABLX -JOG) 

% 

( 4200) 

P5RE  =  P5RE+0LXC l ) 

i 

(4201) 

P5IM  =  P5IM+DLX(2) 

k> 

( 4202) 

TABLX(MX,HX1  )  =  0 . 0 

l 

( 4203) 

TABLX<  MX , MX2 )  =  0.0 

•  4204  ) 

IPID  =  0 

4205) 

CALL  PINVC(IPID,KV,NB,N40,N40,!S> IROT, TABLX, JOG) 

V 

(  4206) 

P5RE  »  P5RE-DLXC 1 ) 

f 

(  4207) 

P5IM  *  P5I M-OLX( 2 ) 

•j 

( 4208) 

325 

CONTINUE 

If 

( 4209) 

330 

CONTINUE 

C  4210) 

DLX< 1  )  *  X 1  * P5I M 

\ 

(4211) 

DLX<  2  )  =~X1*P5RE 

■ar' 

(4212) 

C 

FACTORIZATION  OF  KNOWN  EIGENVALUES 

(4213) 

IF  ( K05 . EQ . 1  )  GO  TO  340 

(4214) 

IF  <  K 1 7 . EQ .0  )  GO  TO  335 

(4215) 

Q  =  Q2<  K  1  7  ) 

4 

K 

(  4216) 

DLJfCl)  =  <  R5LX1-R4LX1/Q  VQ 

-'. 

'.4217; 

DLX<2)  *  (  R5LX2-R4LX2,'8  )/Q 

(4218) 

K 1 7  2  =  2*K  1? 

(4219) 

K171  =  K172-1 

( 4220) 

DLX(i)  *  OLX< 1)+01LX(2,K1?2) 

( 4221  ) 

DLX<2)  *  0LX(2)-D1LX(2,K171  ) 

v 

( 4222) 

CONST  »  2 . 0* AM8( K 1 7 )/Q 

% 

■A 

( 4223) 

DRE  =  0LX( 2 )/CONST 

J* 

<  4224) 

DIM  *-DLX(  1  )/'CONST 

S' 

( 4225) 

0LX<1)  *  AOLX( K 1 ) *  ORE- A OLX(  K 2 )*0 I M+ AA2 LX  (  K 1  )*Y1LX(K1  ) 

1 

(  4226) 

+  -AA2LX(K2  )*YILX(K2  ) 

1" 

( 4227) 

335 

DLX( 2 )  »  A0LX(K1)*DIH+A0LX(K2)*0RE+AA2LX(K1  )*Y1LX(K2) 

Ijk 

<  4228) 

+  +AA2LX(K2  >*Y1LX(.K1  ) 

i- 

£*J 

ft? 

(4229) 

340 

Y1LX<  K1  )  =  0LX<  1  ) 

( 4230) 

Y1LX(K2)  *  DLX(  2  ) 

e'; 

(4231) 

IF  (K.LT.NF)  GO  TO  245 

E 

( 4232) 

C 

C-DERIVATIVE  INTERPOLATION 

S? 

( 4233) 

DO  345  K=1,NF 

T. 


a 

i 

$•- 

t§> 


J? 

t 

t 


<  4234) 

<  4235) 

<  4236) 
( 423?) 

<  4238) 
( 4239) 
( 4240) 
(  4241  ) 
( 4242) 

<  4243) 

<  4244) 
( 4245) 
( 4246) 

<  4247) 
( 4248) 
( 4249) 
( 4250) 
(  4251  ) 

<  4252) 
( 4253) 

<  4254) 
( 4255) 
( 4256) 

<  425?) 
C  4258) 

<  4259) 

<  4260) 
(  4261  ) 
{ 4262) 

<  4263) 
( 4264) 

<  4265) 

<  4266) 

<  4267) 

<  4268) 
(  4269) 
< 4270) 
(.  4  271  ) 
< 42? 2) 
t  4273) 
(4274) 
t 4275) 
(4276) 
(427?) 
i 4278) 
< 4279) 
(4280) 

<  4281  ) 
< 4282) 

<  4283) 
( 4284) 
( 4285) 
( 4286) 
( 4287) 


K 1  *  2*K-1 

345  Y<  K  >  *  Y  1LX<  K 1  > 

XINT<  1>«P10 
ICR  *  0 

CALL  SPIINE< I SP > NF , RET , XI NT  ,  F, Y,21*KW, IER> 

IP  < I ER . N£ . 0  >  GO  TO  806 
R6  *  RET< 1 > 

00  350  K  =  1 >  NF 
K2  a  2*K 

350  Y<  K  )  «  Y  1LX<  K2  > 

ICR  *  0 

CALL  SPLIHE< I SP , HF , RET , XI  NT , F, Y* 22 * KW > IER) 

IF  (IER. HE. 0)  GO  TO  806 
01 LX< 1 / K051  )  *  R6 
01 L X< 1/K052)  «  RET<1  ) 

00  355  K*l / 3 
K2  »  2*K 
K1  »  K2-1 

22LX(K1  )  *  2  1  (  K  /  KO  ) 

355  2ZLX( K2  )  =  Z2<K*K0) 

IF  (DF.EQ.O.  )  GO  TO  356 

22LX(  1  )  =  ZZLX< 1>4DF*<2.0*ZZLXC3)+3.D*DF*ZZLX(5>> 

2ZLX<2)  *  ZZLX( 2  >  +  DF*<  2 .0*Z2LX(4  )  +  3 0*DF*2ZLX<  6  )  ) 

356  D1LX(2<K051)  »  ZZLX(I) 

01  LX(  2<  K052  )  a  22LX<2) 

C  ESTIMATE  RESIDUE 

01LX0  =  01LX<  t»K051)**2+01LX<l*KQ52)**2 

DLX(l)  *  <R4LXi*01LX(l/K051  )+R4LX2*01 LX< 1,K052>  )/01LX0 

DLX(  2  )  a  (R4LX2*D1LXU/K051  >-R4L  X  1  *  D1  L  X<  1*K052)  )/DlLXO 

WNUV1  *  (R5LXt*DlLX(l*K051)+R5LX2*01LX(i*K052))/DiLX0 

WNUV2  =  <R5LX2*D1LX<  1 ,  K05 1  ) -R5LX  1  *0  1 L X U  *  K Q 52  )  >/' D 1  LX 0 

P8  a-DLX<2  )7«NUV2 

C9  a  -  0  L  X  (  1  )- WNUV1  #P8 

El  =  (P8*P8+C9*C9  )/<  P10*P 10*05*0 5  ) 

KPS  =  KP9+1 

IF(ABS(C9). GE. 100.0. AND. El. GT.l.QE-03)  09=09*0.01 
El  =  E17RLAX 
03  =  P 1 0 
KP 1 9=0 

Q2  <  K05  )  =  P10 
AC5CK05  )  =  C 5 
AM 8 1 K 05  /  a-WNUV2/2 . 0 
E0<  K05  )  =  AM8(K05  )*P1Q*P1Q 
AM7(K05  )  =  (P10*WNUVl+C5)*PlG/2. 0 
IF  (ABSC WNUV2  ). LT . 1 . 0E-20 >  GO  TO  364 
B(K05)  =  ~C57  W  NU  V2  7P 1  0 
AM9(K05  )  =  < C57P10-WNUV1 >/MNUV2/2 .0 
364  IF  ( IGEN  .GE. 0 .OR. KP9 .HE  1)  GO  TO  36^1 
MR  I TE<  KM  » 1 09 1  ) 

1091  FORMAT(lHi) 

MRITE  ( KM*  1060  ) 

1060  FORMAT  < 749H  I  FREQ  DAMP  MODAL  MASS  DAMP  RATIO 

♦41HF-CHANGE  C-CHANGE  RESIDUE  D  CHECK) 

3641  IF  (IGEN.LT.O)  WRITE  (KW/1061)  K P 9  * P 1 0 , C5* A M8< KO 5  )  * K05  )  * 
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ix 


A 


I 


( 4288) 

+P8,C9, RESOLO, AM9CK05) 

; 

<  4289) 

1061 

FORMAT  <  13, 1P9011 . 3) 

5 

< 4290) 

IF<£1.GT,1  OE-12. OR. RESRAT  GT  1.0E-02)  GO  TO  365 

(  4291  ) 

KG5H  «  K05 

1 

( 4292) 

GO  TO  395 

* 

<  4293) 

C 

TWO-PARAMETER  NEWTON-RAPHSGN  ITERATION 

j 

<  4294) 

365 

IF  < KP9 . GE .20  )  GO  TO  394 

l 

<  4293) 

PNEW  *  P10+P8 

* 

<  4296) 

P10*PNEW 

V 

<  429?) 

IF<  PNEW-F<  1  )  )  370,  382, 380 

j 

<  4298) 

C  LOWER-SOUND  RESET 

( 4299) 

370 

IFC  Q3 . EQ  . F<  1 )>  GO  TO  371 

<  4300) 

IF< Q3 . EG . F<  NF >)  GO  TO  371 

<  4301  ) 

C9*C9*< F  < 1  )-Q3 )/P8 

-i 

<  4302) 

PI 0*FC 1  ) 

\ 

C  4303) 

IF  (IGEN.GT.O)  GO  TO  382 

i 

<  4304) 

WK I  TEC  KW , 1 080  ) 

<  4305) 

1080 

FORMA T< / 18H  LOWER-BOUND  RESET) 

* 

< 4306) 

382 

KP 1 9*  1 

f 

<  4307) 

371 

C5«C5+C9*SL0W 

J 

(4308) 

GO  TO  120 

( 4309) 

380 

I F < PNEW-FC  NF ) )  382,382,385 

i 

( 4310) 

385 

IF<  Q3 . EQ  .  F<  NF  ) )  GO  TO  371 

(4311) 

IF<  Q3  EQ  ,F< 1  ) )  GO  TO  371 

i 

<4312) 

C9=»C9*<  F< NF )-Q3 )7P8 

\ 

<4313) 

PI 0*FCNF  ) 

'i 

<4314) 

IF  CIGEN  GT.O)  GO  TO  382 

* 

<•] 

<4315) 

WRITECKW, 1090 ) 

? 

<4316) 

1090 

FORMA T< / 1 8H  UPPER-BOUND  RESET) 

J 

<4317) 

GO  TO  382 

3 

« 

<4318) 

393 

IF  <  I  GE  N  .  LT . 0  )  WRITE  <KW,1Q85)  KP9,K05 

i 

<4319) 

1085 

FORMATC /27H0I TERAT ION  OSCILLATES  AFTER, 13, 17H  TRIALS  FOR  ROOT#, 13) 

1 

<4320) 

GO  TO  500 

i 

<  4321  ) 

3931 

KDOWN  =  0 

\ 

<  4322) 

IDOWN  *  0 

l 

-J 

\ 

<4323) 

GO  TO  243 

<  4324) 

394 

IF  CIGEN.  L-T.O)  WRITE  <KW,499> 

5 

<  4325) 

499 

FORMAT  < // 45H  AFTER  20  ITERATIONS,  NO  EIGENVALUE  IS  FOUND  /) 

,  A 

<4326) 

GO  TO  500 

<  432?) 

C 

COMPUTE  FACTORIZATION  FUNCTIONS 

& 

<  4328) 

395 

I F < K05. GE. K5MAX  )  GO  TO  5001 

4 

% 

j 

<  4329  ) 

DO  400  K»1,NF 

<  4330) 

R9  *  <F<  K  )-Q2(K05M  ))*<  FCK  >  +  G2<  K05M)  )/F  SQC  K  )*3  9 . 47841  7 

4 

■fi 

<  4331  ) 

A1 <  K05M , K )  =  R9*AM8<  K05M) 

/g 

<  4332  ) 

400 

CONTINUE 

1 

<  4333) 

GO  TO  101 

a 

<  4334  ) 

C 

COMPUTE  EIGENVECTORS 

<  4335) 

500 

JBEG  =  1 

„  ‘a 

<  4336 ) 

GO  TO  101 

J 

<4337) 

5001 

IF  CIS. EG. 1)  GO  TO  503 

SI 

<  4338) 

IF  CIR0T.EQ.2)  GO  TO  502 

P 

1 

<  4339  ) 

WRITECKW, 1092 )  K05M  , 

<  4340) 

1092 

FORMAT  <  1H1, 32HNUMBER  OF  CO  -ROTATIONAL  MODES  =  ,I3>  j 

M 

<  4  341  ) 

GO  TO  503  i 

•1 

- 1 4 -Jj't.r ■"JJ1  'J MW 'J' l4 


<4343)  1093  FORMAT  <  INI  / 32HNUM8ER  OF  CTR-R0TATI0NAL  MODES  *,I3> 

(4344)  S03  CONTINUE 

<  4345)  IF  (KOSM . EQ . 0  )  GO  TO  805 

<4346)  C  REORDER  EIGENVALUES 

<434?)  DO  510  N*1 / K05H 

<4348)  IF  <M.EQ.K05H)  GO  TO  510 

<  4349)  AMIN  *  92<M> 

<4350)  INDEX  «  N 

<4351)  HP  1  ■  M+l 

<4352)  DO  505  N»HP1/K05H 

<  4353)  IF  <AHIN .LE. Q2<N) )  GO  TO  505 

<4354)  INDEX  «  N 

<4355)  AMIN  *  Q2<N) 

<4356)  505  CONTINUE 

<435?)  IF  < I NDEX . Efi . M  )  GO  TO  510 

<4358)  SWAP  *  Q2<  M  ) 

<  4359)  Q2<  M  )  ■  Q2< INDEX) 

<  4360)  Q2( INDEX  )  =  SWAP 

<  4361  )  SWAP  *  B<  M  ) 

<4362)  B<  M  )  *  8<  I ND  EX  ) 

<4363)  B< INDEX)  =  SWAP 

<  4364)  SWAP  »  AM8<  M  ) 

<  4365)  AM8CM  )  *  AM8<IN0EX) 

<4366)  AM8CINDEX)  =  SWAP 

<  4367)  SWAP  «  AM9<  M  ) 

<4368)  AM9CM  )=AM9< INDEX) 

<4369)  AM 9< INDEX )*SWAP 

<  4370  )  SWAP  *  AM7<  M  ) 

<  4371  )  AM7CM  )aAM9< INDEX) 

<  4372)  AM7  < I NDE  X )*S  W AP 

<  4373)  SWAP  =  EO<  M ) 

<4374)  E0< M)=EO< INDEX) 

<  4375)  E0<  INDEX  )  =  SWAP 


<  4376) 
<437?) 

<  4378) 
<4379) 

<  4380) 

<  4381  ) 
<4382) 
( 4383) 

<  4384) 
<4385) 

<  4386) 
<4387) 

<  4388) 

<  4389) 

<  4390) 

<  4391  ) 
< 4392) 

<  4393) 
<4394) 
<4395) 


CONTINUE 
DO  800  M  =  1 >  K05M 

LOCATE  FREQUENCY  INTERVAL 
DO  515  K=2 / MF 

IF  < Q2<  M  ) .  LT  .  F<  K  >  )  GO  TO  520 

CONTINUE 

KO  =  MF 

GO  TO  525 

KO  »  K-l 

K02  *  2*K0 

KOI  =  K02-1 

DF  *  Q2<  M  ) -F <  KO  ) 

CALCULATE  INTERPOLATED  MATRIX  ELEMENTS 
REWIND  KE 
C50aQ2<  M  )*AC5<  M ) 

Ni  =  ! 

N2  =  NB 
DO  576  L  =  1 <  2 

IF<  IS.EQ.O.AND.L.NE. IROT)  GO  TO  576 
M8  =  <  L-  1  >*NB 
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( 4396)  L8  *  <2*L-3)*NB 

(439?)  DO  575  I  =*N  1  /  N2 

(  4398)  10  »  I  +  HB 

(4399)  102  *  2*10 

(4400)  101  »  102-1 

(4401)  II  *  IQ-LB 

( 4402)  112  =  2*11 

(4403)  Ill  *  112-1 

(4404)  DO  570  J»I,N2 

(4405)  JO  >  J  +  MB 

(4406)  J02  *  2* JO 

(  4407)  J01  »  J 02-  1 

(4408)  J1  »  JO-LB 

(  4409)  J 12  a  2* J  1 

( 4410)  J1 1  =  J 12-1 

(4411)  READ  <  KE  )  <  <  ULX<  K  ) ,  K*1 ,  HF  2 ) ,  >  (  2  U  I A  ,  K  >,  Z2U  A  /  K  ) ) .  I  A*  1  ,  3  ) ,  k  =  1  ,  II F  > 

<4412)  A1LX1  =  o.O 

(4413)  A1LX2  =  0.0 

(4414)  IF  (DF.EQ.O.)  GO  TO  555 

(4415)  DO  550  K  =  l,3 

(4416)  K 1  »  4-K 

(4417)  A1LX1  =  DF*<  A1LX1+ZKK1  ,K0)  > 

(  4418)  550  A1I.X2  =  DF  *<  A  1  LX2  +  Z2<  K  1  ,  KO  )  ) 

(  4419)  555  TABLX< IO,J01 >  =  A  1LX  1  ♦ ULX( KO  1  ) 

(  4420)  TABLX< I  0  *  J  02  )  «  A  1  LX  2+ ULX< K 0 2  ) 

(  4421  )  YLX< I  0, J  01  )  a  TABLX<  10/ J01  ) 

<  4422)  IF  < I . NE . J  )  GO  TO  557 

(  4423)  YLX< 1 0/ J  02  )  *  T  ABLX( 10 / J02 )- 050 

(4424)  GO  TO  570 

(  4425)  557  YLX(I0,J02)  *  TABLX< 10 / J02 ) 

(  4426)  TABLX< JO, 101  )  a  T ABL X<  I  0, JO  1  ) 

(  4427)  TABLX< JO, 102  )  =  T ABLX<  I  0, J02  ) 

(  4428)  YLX<  JO, 101  )  *  YLX(I0,J01) 

(  4429)  YL  X( J  0 , 102)  *  YLX(I0,J02) 

(  4430)  TABLX< 10, J 11  )  =  0 . 0 

(  4431)  TABLX< 10, J 12  )  a  o  .0 

(  4432)  TABLX( J 0 , 1 1 1  )  «  0.0 

(  4433)  TABLX< JO, I  12  )  «  0  .  0 

<  4434)  YLX( 10, J 11  )  =  0 .0 

(  4435)  YLX< 10, J 12  )  =  0.0 

( 4436)  YLX( JO, Ill)  =  o.O 

(  4437)  YLX( J  0, 112)  =  0.0 

(4438)  570  CONTINUE 

( 4439)  IF  ( IS. EG. 0)  GO  TO  575 

(  4440)  READ  (KE)  << ULX(K > ,K*1 , HF2), ( < Z1 < IA , K > , Z2< I  A, K > > , I  A* 1 , 3 >, K*1 , MF > 

(4441)  A1LXI  »  0,0 

(4442)  A1LX2  *  0.0 

(4443)  IF  (DF.EQ.O  )  GO  TO  574 

(4444)  DO  573  K=l,3 

(4445)  K1  »  4-K 

(  4446)  A1LX1  a  DF*<  A1LX1+ZKK1  ,K0)) 

(  4447)  573  A1LX2  =  DF*< A 1LX2  +  Z2< K 1 , KO  ) ) 

(  4448)  574  TABLX< 10,111  )  =  A  1  LX 1  +  ULX<  KOI) 

(  4449)  TABLX(IO,1 12)  »  A 1 LX2+ULX<  K02) 


350 


<  4450) 

YLX< 10,  Ill)*  TABLX<  10,111) 

<  4451  ) 

YLX< 10,  112)*  TA8LX<  10,112) 

<  4452) 

575 

CONTINUE 

<  4453) 

576 

CONTINUE 

<  4454) 

IF  (JDG.NE.6)  GO  TO  578 

<  4455) 

DO  577  1*1, N20 

<  4456) 

IROW<  I  )  *  I 

<  4457) 

ICOL< I )  =  I 

<  4458) 

577 

CONTINUE 

<  4458) 

WRITE  <  KW, 1001 ) 

(  4460  ) 

1001 

FORMAT  ( 23H1 MODE  SHAPE  D I  AG  NOS  TI  C  S,Vi  9H  MODIFIED  IMPEDANCE: 

<  4461  > 

CALL  M0UTC<YLX,N20,N20,N6, JR, JR,  I  ROW, I  COL, LINE, KW) 

( 4462) 

C 

CALCULATE  CHARACTERISTIC  VECTOR 

( 4463) 

C 

INVERT  MODIFIED  IMPEDANCE 

<  4464) 

578 

N2  =  NB+  IS*NB 

( 4465) 

ID*  1 

<  4466) 

CALL  PINVC<ID,KU,NB,N40,N40, IS , I ROT , YLX, JOG  ) 

( 4467) 

IF  < JDG . NE .6  )  GO  TO  580 

( 4468) 

DO  579  1*1, N20 

( 4469) 

I RO W<  I  )  *  I 

<  4470) 

ICQL<  I  )  *  I 

(  4471  ) 

579 

CONTINUE 

<  4472) 

WRITE  <  KW,  1002) 

( 4473) 

1002 

FORMAT  C/V30H  INVERSE  OF  MODIFIED  IMPEDANCE) 

( 4474) 

CALL  M0UTC<YLX,N20,N20,M6, JR, JR,  I  ROW,  ICOL,LINE, KW) 

( 4475) 

WRITE  <  KW,  1091  ) 

( 4476) 

C 

SEARCH  FOR  LARGEST  ELEMENT 

<  4477) 

580 

KMAX  «  0 

<  4478) 

DO  606  K*1,N2 

< 4479) 

DO  606  1*1, N2 

<  4480) 

12  *  2*  I 

<  4481  ) 

11  »  12-1 

( 4482) 

IF  <  K9< I  ) . E6 . 2  )  GO  TO  606 

<  4483) 

TRY  *  YLX< K, 1 1 )**2+YLX< K, 12  )**2 

( 4484) 

IF  <  KMAX . £Q . 1  )  GO  TO  602 

<  4485) 

KMAX  =  1 

( 4486) 

GO  TO  604 

( 4487) 

602 

IF  <TRY . LE .AMAX  )  GO  TO  606 

<  4488) 

604 

AHAX  =  TRY 

<  4489) 

IX  *  I 

( 4490) 

KX  *  K 

<  4491  ) 

606 

CONTINUE 

<  4492) 

C 

NORMALIZATION 

<  4493) 

1X2  =  2*  IX 

( 4494) 

1X1  *  1X2-1 

( 4495) 

DLX( 1 >  *  YLX( KX , I X  1  > 

( 4496) 

DLXC2)  *  YLX<  KX , I X2 ) 

<  4497) 

DLO  *  DLX< 1 )**2+DLX< 2)**2 

( 4498) 

LB  *  <2*IR0T-3)*NB 

<  4499) 

MB  •  < I  ROT-1 >*NB 

( 4500) 

DO  720  1*1, N2 

( 4501 ) 

10  «  I 

( 4502) 

IF  < IS. EQ. 1 >  GO  TO  718 

( 4503) 

10  *  I0+M8 

I ! 
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!■ 

<  4904) 

11  »  10-LB 

<  4905  > 

112  -  2*11 

<4906) 

<  4507) 
<4508) 

Ill  -  112-1 

ULX< I 1 1 >  «  0.0 

WLX< 1 12 )  «  0.0 

<  4509) 

718 

102  *  2*10 

<4510) 

101  «  1 02- 1 

3 

<4511) 

WLX<IOi>  *  <VLX<I0<IX1  )*DLX<  1  >+YLX<  10  <  IX2)*DLX<  2  )•>/<'  LO 

<4512) 

WLX< 1 02  )  *  < YLX<IO, 1X2  )*DLX<  1  >-YLX< 10.  1X1 >*DLX< 2 >>/0L0 

<  4513) 

720 

CONTINUE 

i 

<4514) 

C 

RESPONSE /MODE -SHAPE  TABULATION 

<4515) 

IOR  ■  0 

1 

i 

<  4516) 

JOR  *  0 

<4517) 

1FLAG  •  0 

1 

<4518) 

IF  < I RUN .  EQ  .  2  )  SPD  *  Q2<M> 

1 

<4519) 

RPM  *  60 . 0*SPD 

1 

?■ 

<  4520) 

722 

DO  725  1*1. NB 

<4521) 

12  *  2*1 

3 

<  4522) 

11  *  12-1 

r 

<4523) 

L  *  I +N8 

t 

<  4524) 

L2  *  2*L 

l 

<  4525) 

Li  *  L2-1 

=iP 

5 

<  4526) 

725 

CALL  ORB  I T<IOR<BIG<  I  )<SHALL<  I  >  ,  SL  ANT<  I  ><  PH  ASE<  I  )  <  ULX<  1 1  )<  WLX<  I  2  ), 

<  4527) 

+  WLX<  LI  ). WLX(L2  ) ) 

<  4528) 

IF  < I FL AG . EQ . 0 )  GO  TO  727 

£ 

<4529) 

WRITE  <  KW. 1011) 

i 

V 

<4530) 

101 1 

FORMAT  <///18H  RESONANT  RESPONSE) 

X 

<  4531  ) 

IF<  IT.EQ.O)  GO  TO  1016 

i 

<  4532) 

CALL  XCITAB<KW. IT,NB,M8,K8.PLX) 

* 

<4533) 

WRITE  <  KW< 1012) 

0 

<  4534) 

1012 

FORMAT  < //  15H  RESPONSE  ORBIT/) 

? 

<  4535) 

GO  TO  728 

5, 

<4536) 

1016 

CALL  XCITAB<KW< IT  <N6<M8<K8<  ALX ) 

|' 

<  4537) 

WRITE  <  KW< 1012) 

<  4538) 

GO  TO  728 

=«■ 

c,T 

<  4539) 

727 

IF  <IRUN.£Q.4.0R.H.EQ.  1  >  WRITE  <KW.1091> 

6 

<4540) 

WRITE  <  KW, 1015)  RPM,Q2<M),B<H),AM9<M) 

<  4541  ) 

1015 

FORMAT< 1 9H0R0TATI ONAL  SPEED  *, 1PE1 1 .4, 4H  RPM/17H  FREQUENCY 

| 

<4542) 

+,2H  * , E 1 1 . 4. 4H  HZ/19H  CRIT  DAMP  RATIO  =<E11.4/ 

r 

<  4543) 

♦  19H  PRECISION  INDEX  =<E11.4) 

1 

<  4544) 

WRITE  <  KW, 1110) 

<  4545) 

1110 

FORMAT  < 19H  NATURAL  MODE  SHAPE) 

- 

<  4546 ) 

728 

CALL  ORBTAB<  KW,  NB  <  M8  <  K  8  <  SPD  <  Q2  <  M  )  <  B  I G  <  S(1  AL  L  <  SLA  N  T  <  PHtt  SE  <  P  0  S I  T ,  JOR  ) 

jt  1 

<  4547  ) 

IF  UFLAG.GT.O.OR.  IRUN.EQ.5)  GO  TO  800 

j* 

<  4548  ) 

C 

RESONANT  RESPONSE 

|; 

<4549) 

IFLAG  =  1 

i. 

<  4550) 

C 

FORCE  INTERPOLATION 

I?, 

<4551) 

DO  756  I *1 < N20 

is 

<  4552) 

12  *  2*1 

<  4553) 

11  *  12-1 

I* 

<4554) 

IF  <IRUN.EQ.2.AND. I.GT.NB)  GO  TO  755 

f 

<  4555) 

REWIND  KS 

6” 

<  4556) 

DO  752  K*1 <  NF 

S" 

<  4557) 

K2  *  2*K 

i  i 

i  ; 

i  ' 

i  'i 


3b2 


( 4558) 

K 1  -  K2- 1 

< 4559) 

READ<  KS  )  SPD, FRE, <  <YLX< II  ,  J  1  >,  J1  =  1 , N202>, 11*1 , M20> 

( 4560) 

READ  <  KS  >  <WLX< II  ), I 1*1 ,N202  ) 

<  4561  ) 

ULX<  K 1  )  *  WLXC 1 1 ) 

( 4562) 

752 

ULX<  K2  >  »  WLXC 12) 

<4563) 

DO  753  K*1,NF 

<  4564) 

K 1  *  2*K-1 

<  4565) 

753 

Y<  K  )  »  ULXCK1  ) 

<  4566) 

XI NT<  1 )  *  Q2<  H> 

<  4567) 

IER  «  0 

<  4568) 

CALL  SPLINE  <  ISP/ NF , RE T  ,  X  I  NT  ,  F . Y , Zi , K U , I ER  ) 

<  4569) 

IF  < I £R . N£ . 0  )  GO  TO  806 

<  4570  >• 

REP  «  RET<  1  ) 

<  4571  ) 

DO  754  K«1 / NF 

<  4572) 

K2  *  2*K 

( 4573) 

754 

Y<  K  )  *  ULX<  K2  ) 

<  4574) 

IER  ■  0 

<  4575) 

CALL  SPLINE  < ISP/ NF/ RET  -  X INT , F . Y , 22 , KW , I ER > 

<  4576) 

IF  < I ER . N£ . 0 )  GO  TO  806 

(4577) 

PLX< I 1 )  *  REP 

<  4578) 

PLX< 12)  ■  R£T< 1  ) 

<  4579) 

GO  TO  756 

<  4580) 

755 

PL X < 1 1  )  *  0.0 

<  4581  ) 

PLX< I 2 )  *  0.0 

<  4582) 

756 

CONTINUE 

<  4583) 

C 

ENSURE  WHIRL  REPRESENTATION 

<  4584) 

DO  765  IM,NB 

<  4585) 

12  *  2*1 

<  4586) 

11  -  12-1 

<  4587) 

L  *  I+NB 

<  4588) 

L2  »  2*L 

<4589) 

LI  «  L2- 1 

<  4590) 

IF< IT.EQ.l >  GO  TO  760 

<  4591 ) 

ALX< 11)  =  PLXCIl) 

<  4592) 

AL X< I 2  )  -  PL X< 12) 

<  4593) 

ALX<  L  1  )  «  PLX<  L  1  ) 

(4594) 

ALXCL2)  «  PLX< L2  ) 

<  4595) 

GO  TO  765 

<4596) 

760 

ALX< 1 1  )  »  0 . 5*PLX< 11  ) 

<4597) 

ALX< 12 )  «  0. 5*PLX<  12  ) 

<  4598) 

ALX< L 1  )  «  ALX< 1 1 ) 

<4599) 

ALX<  L2  )  »  AL  X< 12) 

<  4600) 

DLX< i  )  *-0 . 5*PLX<  L 2 ) 

<4601) 

DLX<  2  )  ■  0 . 5*PLX<  L 1 ) 

<  4602) 

ALX<  1 1  )  *  ALX< 1 1 )  +  DLX< 1 ) 

<4603) 

ALX< I 2 )  »  AL X< 1 2 )  +  DL X<  2  ) 

<4604) 

ALX< L  1  )  «  ALX<L 1 >-DLX< 1  ) 

<  4605) 

ALX< L2  )  «  ALX<L2)-DLX< 2  ) 

<  4606) 

765 

CONTINUE 

<  4607) 

C 

RESPONSE  CALCULATION 

<4608) 

IF  CJDG.NE.6)  GO  TO  769 

<  4609) 

DO  767  IM/N20 

<4610) 

IR0W< I )  «  I 

<46 11) 

ICOL< I  )  *  I 

•W-j. 


(4612) 

767 

CONTINUE 

<  4413) 

WRITE  (  KW,  1003) 

<  4414) 

1003 

FORMAT  ( 21  HI  RESPONSE  D  I ACNOSTI CS//23H  INTERPOLATED  IMPEDANCE  > 

l 

(4413) 

CALL  M0UTC<TABLX,N20,N20,M6,<JR,JR,IR0U,IC0L,L1NE,KW) 

(4414) 

C 

INVERT  INPEDANCE  MATRIX 

<  4417) 

769 

ID  *  1 

( 4418) 

CALL  PINVC(ID,KW,NB,N40»N4Q, IS , I ROT , TABLX, J DC > 

(4418) 

IF  (JDC.NE.6)  GO  TO  762 

( 4420) 

DO  768  1*1, N20 

* 

(4421) 

IROW( I)  *  I 

<  4422) 

ICOL(I)  *  I 

* 

<  4423) 

768 

CONTINUE 

5 

( 4424) 

WRITE  (KW, 1004) 

i 

<  4425) 

1C04 

FORMAT  <//34H  INVERSE  OF  INTERPOLATED  IMPEDANCE  > 

( 4424) 

CALL  MOUTC( TABLX, N20,N20,M6, JR, JR, IROW, I  COL , L INE , K W > 

1 

(4427) 

WRITE  (KW, 1091) 

(4428) 

762 

DO  770  1*1, NB 

f 

(4429) 

12  «  2*1 

| 

( 4430) 

11  *  12-1 

(  4631  ) 

L  *  I+NB 

( 4432) 

L2  *  2*L 

( 4433) 

LI  *  L2- 1 

? 

( 4434) 

WLX(Il)  *  0.0 

J 

(4435) 

WLX( 12)  *  0.0 

( 4434) 

WLX(Ll)  *  0.0 

i 

(  4637) 

WLXCL2)  *  0.0 

(  4638) 

DO  770  J=1 ,NB 

1 

( 4639) 

J2  *  2* J 

* 

<  4640) 

J1  *  J2-1 

<  4641  ) 

K  *  J+NB 

<  4642) 

K2  *  2*K 

i 

(  4643) 

K 1  =>  K2-  1 

( 4644) 

WLX(  1 1>*WLX(  1 1  >*TABLX(  I ,  J  1  >*ALX(  J  1  >-TABLX(  I ,  J2  >*ALX<  J2) 

( 4645) 

WLX(I2)*WLX(  I2)+TABLX(  I ,  J2)*ALX(  J  1  )  +  TABLX(  I  ,  J  1  >*ALX(  J2> 

; 

(  4646) 

IF  (IS.EQ.O)  GO  TO  766 

( 4647) 

WLX(L1 >*WLX(  LI )+TABLX(  L, J 1 )*ALX( J 1 )-TABLX( L, J2)*ALX< J2> 

* 

(  4648) 

WLX(L2)  =  WLX( L2)+TABLX<  L, J2)*ALX( J 1 >+TABLX(  L , J 1 )*ALX(  J 2 > 

& 

< 4649) 

IF  ( I RUN .EQ . 2  >  GO  TO  770 

i 

( 4650) 

WLX< 1 1 )*WLX(  1 1 >  +  TABLX(  I , K 1  ) * AL X( K 1  )-T ABLX( I , K2 >*ALX<  K2 ) 

j 

<  465  1  ) 

WLX( I 2 )*WLX< I  2  >  +  T  ABLX<  I  . K2  ) * ALX( K 1  >  +  T ABLX< I , K 1 >*ALX(  K2 ) 

r 

(  4652) 

766 

WLX(L1 >*WLX(  LI )  +  TABLX<  L,K1 >*ALX<  K1 )-TABLX( L,K2)*ALX( K2) 

| 

( 4653) 

WLX(L2)»WLX(  L2)  +  TABLX(  L,K2)*HLX( K1 )  +  TABLX( L ,K1 )*ALX( K2) 

(  4654) 

770 

CONTINUE 

:f 

(  4655) 

GO  TO  722 

1 

(4656) 

800 

CONTINUE 

£_  j 

( 4657) 

805 

IF  (IR0T.EG.2.0R.IRUN.EG.2)  GO  TO  810 

fv 

(4658) 

IROT  *  2 

( 4659) 

GO  TO  100 

r>; 

( 4660) 

806 

WRITE  (  KW,  1200) 

P; 

(  4661  ) 

1200 

FORMAT  ( 749H  ERROR  ENCOUNTERED  DURING  EXECUTION  OF  SUBROUTINE 

( 4662) 

+8H  SPLINE. ) 

| 

( 4663) 

CALL  EXIT 

rj 

( 4664) 

810 

CONTINUE 

(4665) 

RETURN 

§5 

1 

fe.“ 

(  4666) 

END 

j|. 

S' 

g> 

1 

&■* 

J- 

1 

f 

5 

F 
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